御 注意 


(1) 本書 は 閉 者 ら が 調査 し た 結果 を 出版 し た も の で す 。 

2) 本書 は 内 容 に つい て 万 全 を 期し て 作製 いた し まし た が 。 件 不審 な 点 や 詩 り 、 記載 も 
れ な ど お 気 付き の こと が あり まし た ら , 出版 元 ま で 書面 に て 件 連 給 く だ さい 。 

(3) 本 書 の 内 容 に 関し て 運用 し た 結果 の 影響 に つい て は (2) 項 に か か わら ず 責 任 を 負い か 
ね ます の で 御 了 承 く だ さい 。 

(4) 本 書 の 全部 また は 一 - 部 に つい て 出版 元 か ら 廊 書 に よる 許諾 を 矢 ず に 、 いか な る 方 法 
に お いて も 複写 複製 する こと は 禁じ られ て いま す 。 


ま る 々 が き 


FM-ー7 は , 1 9 8 2 年 後半 に FM 一 8 の 姉妹 機 と し て 発売 され , 以来 人 気 を 
呼ん で 現在 パソ コン に お ける べ ベストセラー の 地位 を 保っ て お り ま す . FM 一 7 の 
らら B 和 MY す 08091 は ほ き 電 MNF ビッ ト CPU」 と 呼ば れ , その 人 性能 が 高く 評価 
され て いる 反面 ,。 未だ に ユー ザ に 馴染 み の 骨 いい CPU で ある た め , シス テム 内 部 
の 解析 も あま りな され て いな いよ う で す . 特に , シス テム の 王 妥 部 分 を 占め る イ 
ンタ ブリ タ の 内 容 が ユー ザ に 解放 され て いな い の は 残念 で な り ま せん . 

本 書 は . この 「BAS TIC イ ンタ ブリ タ 」 と いう 巨大 な 思想 体系 に 対す る 1 つ 
の 解釈 を 与え を る も の で す . どん な 思想 体系 に も 様々 な アプ ロー チ が あり , 複数 の 
解釈 が 存在 する よう に 。 我々 の 解釈 と は 異な っ た 角度 か ら イ ンタ ブリ タ の 解析 が 
な され て も 然るべき こと と 思い ます が , 本 書 を 起点 と し て ユー ザ が 自分 自身 の 解 
秋 を 打ち 立て よう と する 探究 心 を 高揚 させ て いっ て 下さ れ ば , それ で 我々 は 満足 
9009 

この よう な 観点 か ら , 本 書 で は , 今 ま で どの 本 も 取り 扱わ な か っ た BASIC 
イン タブ リタ の 根幹 を 探 完 する こと に 俺 点 を 絞り , 基本 的 な ルー チン の 解析 か ら 
っ て , 数 値 演算 の アル ゴリ ズム に まで 手 を 伸ばす こと に し まし た . 特に , 根 

に 触れ る 部 分 に つい て は , 初心 者 の 方 々 で も わか る よう 解説 に 工夫 を 施し まし 

これ が 契機 と な っ て , 多く の ユー ザ が , 閉じ 込め られ た 空間 に ある 各 ル ー チ ン 


を 解放 し , ROM 内 由 ンダ プリ タ と いう 限定 きれ た 空間 に 託さ きれ た 思想 を 江 き 財 
り に し て いく 指南 の 役 証人 
本 書 の 執筆 ・ 出 版 に 当たっ て , お 世話 に な り ま し た 水上 英樹 氏 。 渡部 孝子 氏 . 


田 正剛 氏 。 宮田 優 司 氏 。 山内 直 氏 に 深く 感謝 いた し ます . 
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第 0 逆 本 書 を 読む に 当たっ て 


本 書 を 読む に 当たっ て 最 低 限 必要 な こと は , 6 80 9CPU の 基本 的 命令 セッ ト 
と その アセ ンプ ブリ 言語 に よる 表現 形式 に つい て の 知識 で す . 特に , 豊富 な アド レ 
ッ シ ン グモ ー ド を 持っ て いる 点 と , フラ グ が 頻繁 に 変化 する 点 で 。 Z8 0 な ど 他 
の 8 ビッ ト C じ PU と は 大 幅 に 違っ て いま す の で 注意 を 愛し ます . アド レッ シン グ 
モー ド の 中 で も , と り わ け , 間接 アド レッ シン グ お よび プロ グラ ムカ ウン タ 相 対 
アド レッ シン ク グ ( 後 攻 は イン タブ リタ 内 で は 使用 され て いま せん が , 位置 自由 
[ポジション イン デ ペ ンダ ント 〕」 な ブロ グラ ム を 作る た め に は 必要 不可 決 な も の 
で , サン プル で は 多用 し まし た ) の 2 つの モー ド に 関し て は 理解 を 深め て お く 必 
妥 が あり ます . 

本 文 お よび 図 中 で 用 いた 語句 , 特に 略語 に つい て は , ほとん ど 一 般 に 通用 し て 
いる も の (例え ば , A レ ジス タ を 二 AccA と 略す る な ど ) を 使用 し まし た 
の で , 特に 説明 は 行い ませ ん . た だ FAC・SD・SSP・SAC・FD・S 

な どの 用 語 お よび イン タブ リタ 側 か ら 参 照 さ れる メモ リ の 表記 法 に つい て 
時 hedch 二 beekhANG 間 あ 
1 本 米 , 威 密 に 区 別 す べき も の か も し 
れ ま せん が , 両者 と も 「 文 」 と 同義 で 使用 し て いる 場合 も あり ます . な お , 一 部 
掲載 し た ROM 内 ソー スリ スト に つい て は , わか りや すく する た め に 完全 な アセ 
ンプ ブリ 表記 形式 に な っ て いな い 部 分 が あり ます . その 他 の 事柄 に つい て は 「 エ ドー 
BASIC 文 法 書 」, 「FMー7 ユー ザー ズ マ ニュ アル シス テム 仕様 」 
同 シス テム 解説 お よび 「 ド ーBASI CO 解析 マニ ュ ア ル フェ ー ズ エー 


祭 健 編 一 一 」 等 を 適宜 御 参 照 下 さい . 


(1) メモ リ の 表記 法 に つい て 


メモ リ の 内 容 に つい て は , 値 そ の も の と 区 別 す る た め に カッ コ で くく り ま す . 
例え ば , 次 の よう に な り ま す . 
9 (0 5AC) は , $05AC 番 地 に 格納 され て いる 1 バイ ト デ ー タ , まだ た は そ 
の 領域 の こと を 指し ます . 

@ (033A:O33B) は , $ 0 3 3 A の 内 容 を 上 位 バ イト ・$ 0 3 3 B の 内 
倫 を 下位 バイ ト と する 2 バイ ト の デー タ , まだ た は その 領域 の こと を 指し ます . 
9 (0 43Dー053C) は , $043D-ー$053C に 入る 一 連 の デー タ 列 , 

まだ た は その 領域 の こと を 指し ます . 
だ た だし, イン タブ リタ 内 で は 常に 。 DP (ダイ レク トペ ー ジ レジ スト ) は $ 0 
0 に 固定 され て いま す (BIOS 内 で は , $FD に 固定 ) か ら , ダイ レク ト ア ド 


レッ シン グ に お ける 上 位 バ イト は 必ず $0 0 と な る ため, $0000-00FE 
の 範囲 の ワー クエ リア に つい て は , 例え ば , (0 0BF) つ (BEF) , (003 
きる 09234) (89.34) 。 (0074 ご 007 し ) 作 (74ー と 7 し) な 
ど と いう よう に 上 位 バ イト を 省 い た 略記 法 を 多く 用 いま し た だ た. まだ , この エリ ア 
の こと を ペー ジ ゼ ロ と も 呼び ます . 


(2) FAC (フロ ー テ ィング アキ ュー ムレ ー タ ) に つい て 


イン タブ リタ 内 で は , 整数 型 ・ 単 精度 型 …… な どの 種々 の 演算 操作 を 効率 良く 
実行 する た なめ, フ プロー ティ ング アキ ュー ムレ ー タ (Floating Point Ac- 
cumulator : 浮動 小数 点 演 算 用 アキ ュー ムレ ー タ ) と 呼ぶ 8 バイト の 仮想 レジ ス 
タ を ワー クエ リア 上 に 設け て お り , これ を F AC と 名 付け ます . 下 AC は 3 つ あ 
り ま す . 

@eFAC1 (747C) 演算 の 主軸 と な る レジ スタ で す . 演算 結 灯 は 全て こ 

こ に 生成 され ます . 

@FAC2 (8 2ー8A) 

2 項 演算 で FAC 1 と 共に 用 いら れ ま す . 
@FAC3 (28 一 3 0) 

実数 の 乗算 と 除算 の み に 使用 され , 仮数 部 だ けが 用 いら れ ま す (指数 部 ・ 符 号 

部 の エリ ア も 確保 され て いま すす ので, ユーザ に よる 使用 は 可能 で す ) . 

FAC1 お よび FAC 2 に つい て は , CPU 内 の レジ スタ と 同様 の 命令 を 行う 
サブルーチン が 設け られ て お り , 「PSHS FEAC1」($93E8), 「PU 
LS FEAC2」($9411),。 !LDEAC1 , 角 」($B301)。 「STF 
ACT .X」(B337)。 !「LDEAC し 2 次)」、 (5BIBA)。「TERR 
FEAC2 JFAC1」($B35E), !「TER FEAC1 ,EAC2」 ($B3 
80), !EXG FEAC1 」FEAC2」($59364), 「CMPFEAC1 , 人 
(実数 の み )」($B 3EC) が 用 意 さ れ て いま す (仮想 レジ スタ と 呼ば れる 意味 
が この よう な こと か ら も 理解 で きま す ) . 

な お , $0 0 1 7 番地 に は FAC1 の 数 値 型 を 示す 識別 子 (整数 型 $0 2, 単 
精度 型 $ 0 4, 倍 精 度 型 $ 0 8, 文字 型 $ る 03) が も 005D に は FAC2 の 
数 値 型 を 示す 識別 子 が それ ぞ れ 格納 され る レジ スタ と し て 用 いら れ て いま す . 

まだ た だ, FAC に 関連 し て , $ 0 0 8 B は 演算 の 符号 判定 用 レジ スタ (5 一 3 
婦 ) と し て , $0 0 8C じ は FAC の 保護 バイ ト (5 一 2 一 3 参照 ) と し て 用 いら れ 


て いま す の で 注意 し て 下さ い . 

次 に , FAC 1 を 例 に し て , エリ ア の 様子 を 見 る こと に し ます . 

@ 整数 型 の 場合 は , 1 6 ビッ ト の 符号 付き 2 進数 と し て 表 さ れ ま す . 従っ て $0 
001 が 1 に , $EFEEFEF が 一 1 に 対応 し $7FFF が 32767 に , $8 
000 が 一 32768 に 対応 し ます . 

@ 単 精度 型 の 場合 は 次 の よう に 各部 が 分 か れ ま す . 
指数 部 実数 を メー ニ 土 0. へ へ へ へ …… へ XX 2"『 と 表し た と き の n が $ も 8 0 だ 
け ゲ タ を 履か され て 入り ます . すなわち $01 一 $8 0 が 2"ー29 に 対応 
し , $80-$FE が 2 の ー27 ツ に 対応 し ます .$ 0 0 は 0 に 対応 し ます . 
仮数 部 上 記 へ へ へ へ … ム へ (へ は 1 か 0) の 部 分 が 順に $0 0 7 5 番地 の 元 頭 
ビッ ト か ら 代 入 さ きれ ま す (た だ ただし, 最上 位 ビ ッ ト が 常に 1 に な る よう に 入り ま 
す . 正規 化 5ー2 一 3 参照 ) . 
符号 部 $0 0 7C 番 地 の 最 上 位 ビ ッ ト が 符号 を 表し ます ( 正 : 0, 負 : 
凍り 

@ 倍 精度 型 の 場合 は 単 精度 型 の 場合 と ほとん ど 同 様 で す が , 型 を 示す $0017 
番地 に $ 0 8 が 入り ます . さら に , 単 精度 型 で は 使用 きれ て いな か っ た だ た ト 位 4 
バイ ト を 仮数 部 と し て 使用 し ます . 

@ 文字 列 型 の 場合 は SD (スト リン グ デ ィ ス クリ プ タ ) の 位置 を 指し 志す ボイン 
タ が 入り ます . 主として SAC 内 の SD を 指す こと に な り ま す . 


図 1) 一 1. FAC1 (0074007C) の 構造 


① 牧 数 列 ② 単 精度 型 。 ③ 倍 柄 度 叶 の 女池 多 束 ウリ | 」 
指数 部 8 ビッ ト の グリ プア ポ 
日 X ロ プ 
( 未 使用 ) 女 字 列 ・ 文 字数 


| | 仮数 部 上 位 m 
字 タ 
SD の 位置 を 2 
表す アド レス ー 


ん ドル ジグ | 


$ 0 0 


仮数 部 


ee 和子 多 本 休 
全 56 ビ ピッ ト 未 使用 ) A 
B 


し 


sool7| soz | | S 0 4 | $ 0 8 $03 


※ 図 中 。 純 は 他人 号 を 表す ビッ ト で,.「 0: 正 :1: 負 」 を 表す . 


(3) SD (スト リン グ デ ィ ス クリ プ タ ) , SSP (スト リ 
ング スタ ッ ク ポ ボ ポイ ンタ) に つい て 


文字 列 型 デー タ は 不定 長 で ある た だ ため , 間接 表現 が 採用 され ます . この 間接 表現 
時 (String Descriptor : SD と 略す ) 

名 付け た 3 バイ ト の デー タプ ブ ロック で, 最初 の 1 バイ ト に は 文字 列 の 文字 数 
の Pet 残り の 2 バイ ト は 実際 の 文字 列 が 格納 され て いる 位置 を 示 
す ボ ポイ ンタ と な り ま す . イン タプ リタ で は , 実際 の 文字 列 を , 主として 文字 列 ス 
タッ クエ リア と 呼ぶ 領域 (この 儲 域 の 大 き さ は CLEAR 文 の 此 1 パラ メー タ 
で , また 領域 の 先頭 (下限 ) は CLEAR 文 の 第 2 パラ メー タマ イナ ス 1 で 与え 
られ ます ) で 扱い ます . この と き , 使用 済 領 域 と 未 使用 領域 と の 境 夫 を 指す ポイ 
ンタ が 必要 で あり , ワー クレ ジス タ (4 1 : 4 2 ) が これ に 相当 し ます . これ 
は , 文字 列 ス タッ クエ リア (String Stack Area) の ポイ ンタ で すか ら , スト リ 
ング スタ ッ ク ポ イン タ (String Stack Pointer : SSP と 略す ) と 命名 いた し まし 
だ た. これ に つい て は , 2 一 2 一 1 節 で 詳細 を 御覧 下さ い . 


(4) SAC (スト リン グ ア キ ュー ムレ ー タ ) 


スト リン グ ア キ ュー ムレ ー タ (String Accumulator: SAC と す ) と いう 
名 称 は , FAC を も と に し て 名 付け た も の で , 本 書 の 中 だ け で 使用 され て いる 特 
有 な 名 称 で す . 前 述 の よう に , 文字 列 は SD… 文 字 列 スタ ッ ク エ リア の 2 段 構 え 
で 表現 され ます が , 文字 列 関数 や 文字 列 演 算 (加算 式 ) の 処理 を 行う 場合 に は , 
作業 領域 が 必要 不可 欠 に な り ま す . 実際 の 文字 列 本 体 は 文字 列 ス タッ クエ リア に 
直 く こと と し て , その 本 体 を 表現 する SD を 置く 場所 が 問題 と な り ま す . FM 一 
7 で は , この よう な 作業 用 の SD を 置く 場所 と し て (0578C0595) の 3 
0 バイ ト (SD1 0 個 分 ) が 用 意 さ れ て お り , 本 書 で は この 1 0 個 分 の エリ ア に 
対し て SAC1, SAC 2 …… , SAC1 0 と いう 名 称 を 与え ます . 

現在 使用 し て いる SAC の 番地 , お よび 湊 に 使用 すべ き SAC の 番地 を 指す ポ 
イン タ が (2 1 : 2 2) お よび (1E : 1F) で あり , 作業 領域 が 増え る た びに 
ペア で イン クリ メン ト ( 十 3 ) , 1 つの 作業 が 終わ る た びに デ ク リ メン ト (一 
3 ) され ます . SAC ポ イン タ の イン クリ メン ト ・ デ クリ メン トト は, FAC の プ 
ッシュ ・ ブ ル に 相当 する と 考え て 下さ い 、. 

まだ , SAC は 1 0 個 し か な い の で , 例え ば 

PU (で 土 *ABC) )…… ) ) 


9 重 の カッ コ 
な ど と 行う と 「String Formula Too Complex」 エ ラー が 発生 し ます . 
6 


(5) FD (ファ イル ディ スク リプ タ ) と SFD (シス テム 
ファ イル ディ スク リプ ブタ ) に つい て 


ファ イル ディ スク リプ タ (File Descriptor : FD と 略 す ) の 意味 は 「 ド ーB 
ASTIC 文 法 書 2. 8」 の ファ イル ディ スク リプ タ の こと を 指し て いま す . し か 
し , シス テム ファ イル ディ スク リブ プ ブタ (System File Descriptor: SFD と 略 
す ) は イン タブ リタ 内 部 の も の で ,。 FーBASTIC プ ログ ラム 上 の も の と は 異 な 
り ま す の で , 本 書 で は 「 シ ステ ムー」 を 接頭 語 と し て 付け て 区 別 し ま し た SF 
D に つい て は 4 一 1 一 1 範 に 詳細 な 解説 を 行っ て いま す . 


(6) 汎用 読込 み ル ー チ ン $ も D 2 お よび $ も D 8 に つい て 


ワー クエ リア の (D2 DD) に は ,。 テキ スト を は じ め ,。 バッ ファ 等 に 蓄積 さ 
れ た 様々 な デー タ の 読込 み の 心 臓 部 を な す 非 常に 重要 な サブ ルー チン が 人 存在 し ま 
す (エン トリ は $D2 お よび $D8 の 2 種類 が あり ます ) . この ルー チン は , B 
AS 1 CC 起動 時 に 上 記 ア ドレ ス に 設定 され , イン タプ リタ 内 の ほとん どの 処理 系 
か ら 呼 び 出 され て いる た め , これ を 破壊 する と イン タプ リ 0 
ます ,。 この ルー チン の 働き は , ルー チン 内 部 に 含ん で いる ポイ ンタ (D9・ 

A) が 指し 示し て いる アド レス の 内 容 を A レ ジス タ に 読み 込ん で , その デー タ の 

種類 に 応じ し て フラ グ を 立て る こと で す . $D2 と $D8 の 違い は , 読込 み に 先 立 

っ て ,。 ポイ ンタ (D9:DA) を イン クリ メン ト す る (= テー$D2) か , し な ぃ 

(=$D8) か の 違い だ け で す . 読込 み を 終え た 後 , $C7 6 0 に 飛ん で , 

① A レ ジス タ 内 の デー タ が 数 字 を 表す 文字 コー ド ($ 3 0 一 $ 3 9 ) で あれ 
ば キャ リー フラ グ を セッ ト し ます 【 数 字 の 検出 ] . 

②) A レ ジス タ 内 の デー タ が NULL まだ た は コロ ン を 表す 文字 コー ド ($00 

または $ 3 A) で あれ ば ゼロ フラ グ を セッ ト し ます 【 区 切 文字 の 検出 ]. 

3③  A レ ジス タ 内 の デー タ が 空白 の コー ド ($ 2 0 ) で ある 場合 に は 再び $D 2 

に 戻っ て 次 の 番地 か ら デ ー タ を 読み 込み , 空白 以外 の 文字 が 出 て くる まで 
ポイ ンタ (D 9 : DA) を 更新 し つつ 読み 飛ば し ます 【 空 白 * ニ "の スキ 
ッ プ 〕. 
な どの 後 処理 を 同時 に 行い ます . この , $ 0 0D2 か ら 始 まっ て $C76 0 を 経 
て $C7 6E に 終わ る , 汎用 読込 み ル ー チ ン は , 実に 巧妙 に で き て お り , わす か 
2 7 バイ ト で 上 記 の すべ て の 機能 を 備え を て いる だ け で な く , 結果 が 格納 され る A 
お よび CC レジ スタ を 除い た 全て の レジ スタ が その まま 保存 され ます . 特に フラ 
グ の 立て 方 や 、$D2-ーD7 に お ける プレ イン クリ メン ト の 行い 方 な ど は 技巧 


的 で 効率 良く で き て いま す (この 部 分 は ユー ザ に と っ て 大 い に 参 考 に な る 点 で 
す の で , ソー スリ スト を 載せ て お きま す . キャ リー フラ グ の 立て 方 に 注目 し て 下 
さい ぃ い ) .。 まだ 。 ペー ジ ゼ ロ の エリ ア 上 に 書か れ て いる こと に より ,。 DP=$00 
で ある 限り !「JSR ぐ く $D8」, 「JMP ぐ く $D2」 等 と いう よう に 2 バイ 
ト 合 令 で 呼び 出す こと が で きる の も 大 き な 特 色 で す . 

ソー スリ スト ("< く * は 8 ビッ ト オ ペ ラン ド を 強制 する 記号 で す ) 


$ ゃ 00D2 INC ぐ く $DA ゅ し C760 CMPA #$3A "EE" 
D り 4 BNE ぐ く $D56 02 B 量 S DL 0 四 
D6 INC ぐ く $D9 64 CMPA #$20 

ゃ 00D8 し LDA (エク ステ ンド ) 606 BNE ゅ し 76A 
D 3 外用 読込 み “ 66 JMP ぐ く $D2 
DA 1 $C76A SUBA #$30 
DB JMP SC760 6 し SUBA #$D0 


Do D 紀 ED KR 上 さら 


(7) その他 の 主 な サブ ルー チン に つい て 


ワー クエ リア (DEE 0 ) に は , BIOS へ の JMP 命 令 (JMP $E1 
7 DD) が 書か れ て いま す の で 。 イ ンタ ブリ タ 内 か ら の BIOS コ ー ル は ほとん ど 
「JSR ぐ く $DE」 で 行わ れ ま す . 


$9 2 8C か ら 始 まる 一 連 の 文字 コー ド チ ェ ッ クル ー チ ン ( 左 カ ッ コ :928 
F, 右 カッ コ :928C, コン マ : 9 2 9 2, Breg 内 の コー ド : 9 2 9 4 ) に つ 
いて は 3 一 8 一 3 節 で 詳細 に 述べ ます の で 。 ここ で は 省略 し ます . 

な お , アル ファ ベッ トチ ェ ッ ク ($ 9 4 FD) , 数 字 チ ェ ッ ク ($9506) 


お よび 小文字 履 大 文字 変換 付き アル ファ ベッ ト テ スト ($C4 9 0) の 各 サ ブル 
ー チ ナン に つい て は ,。 2 一 3 一 4 節 (4) の [14〕 で 解説 し ます . 


1 甘 原 辰夫 …… 上 第 1 苗 。 上 信 4 章 
和 地 。 左 …… 第 2 将 。 第 3 次 


ば ョ ーー ここ ャ まこ SE CT | 思 Lay 
| 誠 だ 1 ロ ラテ つの 


朋 7 章 4S7C の 起動 


1 一 1 BOOT・ROM か ら の BAS 1C の 起動 


6 8 0 9 マイ クロ プロ セッ サ で は , リセ ッ ト 信 号 が か か っ た 後 , リセ モット ベク 
トル と し て (FFFE:FFFF) より , 実行 開始 アド レス を 取り 込み ます . F 
M- 7 で は , ここ に $FE0 0 が 書か れ て いる た め , $FE 0 0 が , 実行 開始 ア 
ドレ ス と な る 訳 で す が , SFE00 か ら は , BOOT・ROM の 領域 が 入っ て 
いま す . BOOT・ROM は , DIP ス イッ チ に より 切り 換え られ , D IP スイ 
ッ チ の 1, 2 番 を ON 状態 に する と BASIC モ ー ド に な り , BOOT・ROM 
も S も BASIC 用 に な り ま す . 


1 一 1 一 1 BOOT・ROM の 構成 


BOOT・ROM は 大 きく 分 ける と , BAS1IC 起 動 ル ー チ ン , RESTOR 
E (シー クト ラッ ク 0 ) ルー チン , DWR 1TE (フロ ッ ピ 1 セク タラ イト ) ル 
ー ナ ン 。 DREAD (フロ ッ ピ 1 セク タリ ー ド ) ルー チン に 分 か れ て いま す . ま 
た , スタ ッ ク 領 域 と し て $FC7F ド 以下 の R AM 領域 を 利用 し て いま す ( 図 1・ 
1 ・ 1 参照 ). 

ディ スク 用 の ルー チン は , その エン トリ 番地 を 直接 呼ぶ こと も で きま す が , 図 
1・1・1 で 示し た よう に , RESTORE は $FE02, DWRITE は $F 
E05, DREAD は $FE0 8 と いっ た エン トリ が 用 意 き され て いま す の で , こ 
れ ら を 使用 する よう に し て 下さ い . 


1 一 1 一 2 _ BASIC 起動 ルー チン 


SFE 0 0 番地 の ブラ ンチ 命令 に より , 実際 に 起動 ルー チン が 始ま る の は , $ F 
E 0 B 番 地 か ら で す . また , 図 1・1・1 に も 示し た よう に , 一 連 の 動作 が 終わ 
っ て か ら は $FFC 0 番地 に 飛び , そこ で 特定 の IO ポー ト の 設定 を し た 後に , 
BASIC ( また は , I PL) へ と ジャ ンプ し て いき ます . 


SFFC0 番 地 に 飛ぶ まで の 起動 ルー チン の 主 な 動作 を 以下 に 示し ます . 

に 1) スグ アッ クボ ホ ポイ オイシ ジ シク と し て DHPO7H る を 談 定 し ます 

(2)1 プ 0 ポー ト ($FD04) の ビッ ト 1 を 参照 し . プレ ー ク ・ キ ー が 押さ れ 
て いれ ば , メレ ジス タ に BASIC の ホッ トス ター ト の エン トリ 番地 を 代入 
し ます . また だ た, 押さ れ て いな けれ ば 次 の 動作 を 行い ます . 


1 1 
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図 
本 ーー ャ ーッ 
レー 


* BOO「・ROM の 構成 


FPP ば 


FFFF コー トル ($FE 0 0 ) 
FFF? 宣 | り 込み ベク ト ル (RAM) 
see 


BOOT・ROM 
ワー クエ リア (RAM ) 


ドド E0 
JUMP TO 

BASIC*START 

の 生 ( 
DREAD 

FESUD ' 

D り WRITE 
BT5D 


ドラ イジ アジャ トド トラック ツ で サイ ド 。 セク ク の 
証 、 及 び R/W 判定 ルー チン 

ドラ イブ ・ ト ラッ ク の 選択 , TIMER, 
READY CHECK な どの ルー チン 


FE5E 


RE 上 ES10 ド RE 
FE61]1 
BASIC 起動 ルー チン 
トド OB 
JUMP TO DREAD 
FEOS 


JUMP_ IO0 DWRIITE 
が EO05 
NNNIPD IO ES IORE 
FE02 上 
JUMP TO0 BASIC 起動 ルー チン 


FEO0O 


(i) プ 0 ポート (SEFD05) の ビッ ト 0 を 参 早 し , 拡張 モジ ュー ル が あれ 
ば DREAD (=$FE08) を コー ルル し, エラー が な いい 限り, 1PL 
(Initial Program Loader) を ディ スク か ら $ 0 1 0 0 番地 以降 に ロー ド し, 
X レ ジス タ に TI PL の エン トリ 番地 を 代入 し ます . 

Gi) 拡張 モジ ュー ル の な い 場 合 は ,、 メレ ジス タ に BASIC の コー ルド スタ ー 
ト の エン トリ 番地 を 代入 し ます . 


メレ ジス タ に 代入 され る エン トリ 番地 と , それ が 書か ん れ て いる ROOM の アデ ドレ 
ス は 次 の 通り で す . 


ポッ トス ズ スズ ター ト ・ 8684 (FBFC:FBFD) 
コー ルド スタ ー ト  : や 845 日 (FBFE:FBFF) 
1PL 。 $ ゃ 0100 


TPL を ディ スク か ら ロ ー ド する 際 に エラ ー が あっ だ とき, その エラ ー が Disk 
Not Ready の 場合 は , 拡張 モジ ュー ル が な いと き と 同 じ 動 作 を し ます . し か し , そ 
れ 以 外 の エラ ー の 場合 は RESTORE( 三 SEFE02) を コー ル し て , ドラ イブ 
ペ ヘッド を トラ ッ ク 0 の 位置 に セ モット を し た 後 。 I PL 上 を 再度 ディ スク か ら 読 み 込 
も うと し ます . た だ し , この 動作 を 計 5 回 繰り 返し た 後 も エラ ー が 起こ る よう で 
あれ ば , 拡張 モジ ュー ル が な い 場 合 と 同じ 動作 を し ます . 

この DREAD や RESTORE な ど を 呼ぶ 隊 に は , BIOS と 同様 に 
B(Request Control Brock) が 必要 で , RCB の デー タ が DREAD) 0 ド 
E51 一 $FE58 和 番地 に 。 ま だ RESTORE 用 に は $F ド FE59 一 $FE60 
番地 に 格納 され て いま す . 


SF ド FC 0 番地 か ら は , 次 の 動作 を し ま 

(1)DP(Direct 二 レジ スタ に ,。 $ 0 0 を セッ ト す る . 

(2) (ED07) つま り 、。 RS5ー232C イ ンタ フェ ー ス の コマ ンド レジ ス ア に 
リセ ッ ト 合 令 を 送る . 

(3) (FED25)、(FD27),(FD29).(FD2B) に も リセ ッ ト 命 令 を 送る . 

(4)X レ ジス タ の 指す アド レス (各々 の エン トリ 番地 ) へ ジャ ンプ する . 


な お (FD0 7) は , 本 体内 の RS 一 2 3 2C と イン タフ ェ ー ス の コマ ンド レジ 
スタ で す が ,.(FD25) か ら の 4 つ は 拡張 ユニ ッ ト 内 の RS 一 2 32C イ ンタ フ 
ェ ー ス の コマ ンド レジ スタ を 示し ます . 
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区 1・1・2 BASIC 起動 ルー チン 


SFE0B $FFC 0 
START (けり 
DP こ $FD 
SF ご $FC7F (FD 0 7) 一 RESET 
(FD 2 5) ご RESET 
YES (FD27)-RESET 
Break Key? (FD 2 99) 一 RESET 
(FD 2B) ご RESET 
NO 


人 JUMP (X) 
HO0T 
X-$868 4 
(FBFCO・FBFD) 
ERROR? 
Drive Not 


Ready エラ ー? 


5 回 | 目 ? [ 
X<- や 848B 
| RESToRE | 
6 


※EXTDET は 拡張 モジ ュー ル 無 ノ 有 フラ グ (FDO5 の ビッ ト 07) 


1 一 1 一 3 BOOT・ROM 内 の サブ ルー チン 使用 法 


BOOT・ROM 内 の ディ スク 関係 の サブ ルー チン は , BIOS か ら も 呼ば れ 
て お り , その 中 身 は 同一 の も の で す . 従っ て , BIOS の サブ ルー チン と 使い 方 
MFI * ぶ あり ま 
す (BIOS を 介 せ ば , BIOS が これ ら の 処理 を 行う こ 7 
(1)DP レ ジス タ に $ EFD を 代入 し て お くく 必要 が ある こと 
(2) 全 て の レジ スタ が 使わ れ , 保存 され な ぃ い こと. 
人 


れ て 戻さ れる 
計 0P0 6 の で ,。 RCB を 設定 し 。 双 レ ジス タ に RC B の 先頭 アド 
レス を 代入 し 各 エ ント リ に 飛ば し て くだ さい (シス テム 仕様 参照 ). 


1 一 2 1PL (Initial Program Loader) 


DISIK ゃ 及 A 人 SI し で ほほ BOO り 0J NROMW に こよ リ ディ スク クノ の と ラッ クリ 1, 
セク タタ 1] から $ 0 1 0 0 番地 以降 へ と 読み 込ま れ ま す . その 全体 は , 161 バ イト の 
Au グロ グアム の た だ 696。 【 上 上 と し て 2 セク ツク K ら れ て いま す が 、 失 六 に は 1 て 
クタ で 終わ っ て いま す (セク タタ 2 は , 来 使用 で す )、. 


【 PL の 主 な 動作 は 次 の 通り で す . 

@ [DD セク タ を 読み 込み その ディ スク が FMー- 7 で 使え る も の か どう か 判断 
し , 使え な けれ ば ROM・BASTIC を 走ら せま す . 

@ ト ラッ ク 0, セク タ 1 5 及び 16 に ある DISK・BASIC・INITI 
AL IIZ ビ ルー チン を $S6E00 一 $6FFF に 読み 込み ます . 

@ ト ラッ ク 0, セク タ 17-ー32 の DISK・BASIC を $7000 一 $7 
FFF ド に 読み 込み ます . 

@ 人 和合 ら か の エラ ー が 起こ っ た 場合 は , BOOT・ROM と 同様 に .。 それ が Drive 
Not Ready エ ラー か と うか 調べ 、。 そう で ある 場合 は ROM・BAS1IC を 起動 
させ ます . まだ た , それ 以外 の エラ ー の と き は 計 5 回 読み 取り を 繰り 返し ます が , 
それ で も エラ ー の 起こ る 場合 は ROM・BASIC を 起動 させ ます . 


1 FL は, 」D リ セク タダ タ や DITSK・BASTC を 読み 込む 際 ,、 BOOT・KO 
M の 中 の ディ スク 用 ルー チン を 使っ て いま す の で RCB が 必要 と な り ま す . 
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ググ 


の ) 計 込み 
お よび 
チェ ッ Pd 


けり 158K・ 
8 放し 
INITTALI/ 
の) 


本 
7L ュ へ PJ 


DISK・ 


BASIC 


人 がり ュ 信 みみ 


16 


ら こじ | 三 3 


X 一 SO112 


psk meso 


1 


世 


SCT ニ 15 
X 。s0102 
DISK READ | 


YES 


| NO 
DBA-DBA+ SO100 | 
| SCT ご SCT+1 


DBA ニ = S7000 
50 ニー 人 

X 。 SO010A 
DISK READ | 


ヒ ち 5 


DBA-DBA+$0100 
SCT-SGT 十 1 


IPL ($ も 0100-$01A0O) 


$0178 


DISK READ 


RESTORE 
(BOOT・ROM) 


ンー Drive 1 当 こ 
Not Ready エラ ー? _ 


NO 
| 。 DREAD 


(BOOT・ROM) 


0 
5 回 目 7 


RETURN 


ROM・BASIC 


DISK・BASIC 


※ DBA 
還 


DP ・- 0 


A ご SFF 
DP - 0 
X 。 一 S6EO0O 


BASIC・ 
COLD・START 


デー タバ ッ フ ァ 


中 ググ ダル 1 m す る) 


I PL の た め の RCB 群 は $ 0 1 0 2 番地 か ら $ 0 1 2 1 番地 の 間 に 格 納 さ れ 
CMN ま 00000 、 DISKS 且 ASLCSJIINMULLANLU ル I/ の も ルー チン ちり 
ISK・BASIC を 設定 する た め の RCB (0102ー と $010A~) で 

RM 化し て いき ます . 

I PL は , ID セク タ 内 に ある 識別 子 て FEーBASIC で 使用 可能 な デ 
en 者 Ro 4Px の に 迷 生 9.7 
の TI D の 欄 を 御 参照 下さ い . ここ に 違う コー ド が 入っ て いた 場合 に は , 即座 に R 
OM モー ド に な っ て し まい ます . 

I PL か ら BAS TIC へ と 制御 が 移る 場合 に つい て 多少 説明 を 加え る こと に し ま 
す , 1 P 工 の 終了 が 訪れ ん る と (エラ ー で 終わ っ た に せよ , 正当 に 終わ っ だ に せよ ) 

一 様 に COLD・START の エン トリ , すなわち $848B 番 地 【= ニ (FBF 
E:FBFF) の 内 \) に ジャ ンプ し ます ここ で ROM・BASTIC と DIS 
K・BAS 1IC の 違い は , ジャ ンプ する 間隙 の 唯一 つの 微妙 な 違い に よっ て 起こ 
され る の で す . 

DISK・BAS IIC が 読み 込ま れ , ス タン バイ の 状態 に か っ て いる と き は 。,A 
レジ スタ が $ 0 0 以外 の 値 を 取り , レジ スタ に は , DISK・BASIC の 婦 
まる 番地 が 書か ん れ てい ます . ROM・BAS TIC が 起動 する 際 に は , 全て A レ ジ 
スタ が クリ ア さ れ て いま す . 

従っ て , この 違い が , 後に COLD・START ル ー チ ン 上 で DISK・BA 
SIC・INITIAL ITIZE ル ー チ ン を 呼ぶ か どう か の 違い に な っ て きま す . 


BOOT・ROM DISK・BASIC・ 
INITIALIZE ルー チン 


を ay ング Aso の と き // 
な い 坦 谷 ーー 

A= テ 0 BASIC・COLD'START 
ルー テ チン 


エフ ー が な く DISK・BASIC 及 び 
DIS KK・BAS1IC・INTTTAL1ZE 


ルー チン が 読み 込め た 場合 AslGMAIN ) 
| PD | A ニ swFF X ニ $6E00 BASIC MAIN 
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1 一 3 BASIC・COLD・START ル ー チ ン 


BOOT・ROM か ら 源 を 発し た BASIC 起 動 へ の 流れ は , ブ プレー ク ・ キ ー 
が 押さ れ て いな い 限 り , 1P 工 を る 給 な い に よ ら ず ,BAS1IC・ し 0 上 DU・S 
TART ル ー チ ン の エン トリ に 錠 り 着き ます . 

BASIC・COLD・START ル ー チ ン に 入る た め に は 。 前 述 し た よう に 
(FBFE:FBFEFE) 上 に ジャ ンプ ベク トル が 書か れ て いて , IPL や BOO 
T・ROM は この ジャ ンプ ベク トル を 頼り に 。 この エン トリ ボイン ト (= エン 
トリ の アド レス ) に 。 処理 を 移し て いき ます . この ジャ ンプ ベク トル の 値 は $ 8 
4 8B で , ここ が エン トリ ポイ ント と な り , $ 848B 以 降 に (一 $8702 ま 
で ) COLD・START ル ー チ ン が R OM 上 に 展開 し て いま す . 


1 一 3 一 1 主 な 動作 


動作 の 内容 を まとめ る と , 次 の よう に な り ま す . 

@A レ ジス タ を 判別 し, その 値 が 0 以外 の と き は , 前 か らき た X レ ジス タ の 値 ( 
DISK・BAS1IC の 先頭 アド レス ) を (FEFF8:FFF9) に 保存 し ます . 
それ 以外 の と き は , $ 8 0 0 0 が 入り ます . 

@ 逢 | 込み を マス ク し ,。 RAM 領 域 ( ROM モ ー ド で は $0000 一 $7FFF, 
D1ISK モ ー ド で は $0000 一 $6DFF の 領域 ) を 全 て クリ ア し ます . 

@ ワ ー ク エリ ア を 設定 し ます . 

@ 設定 の 途中 で (FC00ーFC7FE) の RAM 領 域 を クリ アデ し, (FEFFS8 パ ^ 
FEFEF9) に 入っ て いる DTISK・BASIC の 先頭 アド レス を (FC00・ 
FC0O1) に 転送 し ます . 

@ 逢 | りり 込み ベク トル テー ブル を 設定 し ます . 

@ PTOS を 初期 化し ます . 

@TAB を 設定 し ます (TAB キ ー の 停止 位置 の 設定 ). 

@ PEF. キ ー を 設定 し ます (た だ し ,D ISK モ ー ド の 場合 は DISK・BAS 
IC・INITIAL TI ZE ル ー チ ン が 行い ます ). 

@ コンソ ー ル 機能 を 設定 し ます . 

@ クイ マ を 設定 し ます . 

@ 四面 を 設定 し ます . 

@DISK モ ー ド 〔(5 9F)S$00] で あれ ば , (FCO00:FCO1) を 参照 
し て DISK・BASIC・INITIAL TIZE ル ー チ ン へ ジャ ンプ し ます . 
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ROM モ ー ド の 場合 は , テ キス ト を 初期 化し た 後 , 汎用 読み 込み ボイン タ (D 
者 x 定 され て いる ) に 設定 し , まだ た , ダイ レ 
クト で ある こと を 指定 [(4 7 :48) に $FFFF を 代入 ] し ます (DIS 
K モー ド で も , PPM 

@ 最後 に, ($8 6 3E 番 地 か ら で ,。 DI SK モ ー ド の 場合 で も , 大 抵 は ここ に 戻 
っ て きま す が ) メッ セー ジ を 表示 し , 割り 込み マス ク を 解除 し た 後 ,BASIC 
イン タプ リタ の メイ ン ル ー チ ン (2 章 ) へ ジャ ンプ し ます . 


5 
DISK・BASIO・ N 
RAM 領 域 の 6 INITIALIZE ルー チン BIOS の 初期 化 
1 ンー ノ 


ング - ーー ン ノ 


グ 
es グ 
DISK モ ー ド レズ 
宣 | り 込み ベク トル _ BASIC・ 細 
テー ブル の 設定 COLD・START ノノ ~~-- で 


コン ソー ル 
機能 の 設定 


※ 人 破 線 ( (サブ ルー ナチ ン 


凶 1・3・1 BASIC・COLD・STAR 丁 ルー チン 


1 一 3 一 2 ワー クエ リア の 設定 


じ し OLD・START ル ー チ ン の 主 な 仕事 は , ワー クエ リア の 初期 設定 で す . 
ここ で は , その 中 で も 重 愛 な も の に つい て 取り あげ まし た . 
(1) DISK/ZROM モ ー ド 識別 フラ グ 
る (0 5.9F) ・ROM 時 …$00 DISK 時 …$ FE 


(2) 領域 設定 
BAS1TIC の 使用 領域 を 設定 し ます . 
@ (059D:O59E) : 人 解放 RAM 領 域 の 終わ り 
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(3 BI1OS ジ ャ ンプ ブ プルー チン 


(0 0 4 1 


(003F: 


っ ROOM 時 …$87FEFEE DISK 時 …$71D4 


※ 又 字 列 スタ ッ ク 全 域 先頭 穫 地 (4 5 


0 人 ゆ 4 み 」 


・46) も 同 
じ 値 で す . 
・ 又 字 列 使用 領域 境界 (SSP) 


_ROM 時 …$87FFE DISK 時 …$6DFE 


※DISK 時 は , 


0 0 4 0) 


っ ROM 時 …$7ED2 


後 で $ 7 1D4 に 変更 され ます . 
(文字 列 ス タッ ク 領 域 最終 番地 
DISK 時 …$70AS8 


※ ス タッ クボ イン タ も 同じ 値 で す . 


@ (0 0DEー00E0) 


・ っ 8 7 (JMP) . $F17D 


(4) 入出 力 テ ー ブ ル お よび 割り 込み 時 の テー ブル の ポイ ンタ ( 4 章 参 照 ) 


入出 力 関係 の バッ ファ 


ンス テム ファ イル ディ スク リプ ブタ, 割り 込み の テー 


ブル の 先頭 アド レス ・ ボ ポインタ を 設定 し ます . 


(5) プリ ンタ 出力 ジャ ンプ テー ブル 


(02B0・ 
(02B2 < 
(02B4< 


(02B6・ 
(02B68: 
(02BA: 
(02BC<: 


(02BE・ 


(05AA・ 


02B1) 
リク 8 きり 
U/2 55 7) 


02B7/) 
02B9) 
02BB) 
0 2 BD) 


0 2 BE) 


0 5AB) 


@ (0778 一 078C) 
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っ 二 0-+3 


二 4 一 


・ カ セッ ト 有用 の バッ ファ の ボイン ター $ 0 5ED 
・ デ バイ ス 分 類 テ ー ブ プル の アド レス 一 $ 0 6EC 
シス デム プア イル ディ スク リフ フク の 先 引 ア ドレ 
スー っ $070C 
・PEN 割 り 込 み の テ ー ブ ル (現在 未 使用 ) 
っ $ ゅ ゃ 071E 
COMn 割 り 9 込み の テー ブル ーー$0723 
・ KEY 割り 込み の テー ブフ ブルー…$ 0 73C 
・T TIME 割り 込み の テー ブル ーー$076E 
・INTERVAL 割 り 込 み の テ ー ブ ル 
っ $0773 
・ プ リン タ の 出力 テー ブル ーー$0778 


( 4 章 参 照 ) 
* 次 の デー タ と ジャ ンプ アド レス が 入り ます ., 
まま 屋 ゲラ イズ 省 

ゅ り ) り AD。 5D015。 CEF4。 

$ ゃ D617。$D39 し ,、 し EE4, 
COBERMA。 000。 80oOU。 DD96 


(6) 


aar 


(7) 


(8) 


RS 一 2 3 2 C 入 出力 ジャ ンプ テー ブル 
拡張 モジ ュー ル (ここ で は 。 RS 一 232 


可能 で ある も の ) が 接続 きれ て いる か どう か を . 


$ ゅ 5 下 D25, $ED27,。 $ ド DU29, $E 
る も の に は , その 
し ます . また だ た, 接続 され て いる も の だ け を ポ 
の で 。 ワー クエ リア 内 の これ ら の アド レス に 
る こと に な りき ます, 
相対 値 " デー タ と ジャ ンプ アド レス 
clean 0MOMMEN HRP 2 の 2 
ー ト 番号 
十 4 $D1AD, $D198, 
bhD2B5。 ゆ DU250 
_ sD39C,. SD3A5 
寺 17 $D3B4 
十 2 3 COMO…$FDO06 
+ 2 4 それ 以外 …$ ま EFD22 二 2※*※n 
ボー ト 番号 
形 5 お 6 


RS 一 2 3 2 と C ボ ポー ト の テー ブル の ボイン 

内 容 は (6) の 先頭 アド レス で す . 
か ら 設定 され ます . 

@ (02C0: 
OU の 2 
(0U 2 4 
@ (02C6・: 
@ (02C8: 


0 2C1) 
りん し う ) 
1/8 の まり 9 
ググ 6 7) 
02C9) 


っ 5S078F 
っ $ ゃ 082E 
> PD 0 8 し 
・ っ も や 096C 
・ っ つっ $ ゃ 0A0O0B 


BASIC テ キス ト エ リア の 先頭 アド レス 
(ee 


條 っ て , 接続 され て いる ボー ト 希 舎 に 


し が イシ クノ ァ ェ mー ス すのこ と の 
IT / プ 0 ポー ト ($FD07 
D 2B) で 調査 し て , 接続 され て 


出力 の サブ ルー チン へ の ジャ ンプ 先 (全て 共通 ) を 設定 


来 - コロ 
時 全 


が 小さ い 順 に 作っ て いく 
る の か は , 接続 に よ 


mjN 
何 が 入っ て い 


ワー クエ リア 


7 8 ドー082D) 
8 2Eー0 8CO) 
8CDー096B) 
96Cー0A0OA) 
*(0AOB-ー0AA9) 
ドレ ス の 小さ いも の へ 、。 
ー ト 番号 が 小さ いも の か ら 
玉 定 され て いく . た だ し , 接 
郊 さ れ て いな いも の が ある と , 
設定 され な いも の も 出 て くる 


0 


グ 


の 小さ い 方 


の 設定 
232 じ の ボー ト 数 に よっ て 変わ 


り ま す ( DISK モ ー 
3 変わ っ て きま す ). 


二 


ド 時 (は 。 


以下 に , 


加え て ドラ イブ 数 と ファ イル バッ プ フ プ 
ROOM モー ド 時 の 値 を 示し ます . 


ア 数 
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e (0033:0034) :RS 一 2 3 2C の ボー ト の 個数 で 異な り ま す . 


0 個 の と き つ $0790 3 個 の と き ~$5096D 
1 個 の と き ~$082F 4 個 の と き つ $0A0 し 
2 個 の と き ~$08CE 5 個 の と き ~$ ゅ 0AAP 


例 RS 一 232C の ボー ト 0, 2,。 3 が つなが っ て いる 場合 


フリ ンタ | ポー ト 0 ポー ト 2 ボー ト 3 0『 
(DISK の バッ プ フ プ 


7 7 6 CD 96UD 


BAS1IC の テキ スト 
ア ) 


(0033:0034) テキ スト エリ ア の 先頭 アド レス $096D 
(02C0O0:02C1) ポー ト 0 の テー ブル の ポイ ンタ $078EF 
(02C2:02C3) ポー ト 2 の テー ブル の ポイ ンタ $082E 
(02C4:02C5) ポー ト 3 の テー ブル の ポイ ンタ $08CD 


(9) 二 1ECC0 2 1 間 昌 


@ (0 1EC 一 0O1EE) :“ の 
っ > や 7 (JMP) 。 $DCA6 


0 マシ ン 語 サブルーチン , ユー ザ 関 数 の 開始 アド レス の 初期 設定 
(初期 設定 で は , 全て Illegal Function Call エラ ー の エン トリ の アド レス ミ テ 
$S9663 を 指し て いま す ) 

@ (0 217:0218) : EXEC の 開始 アド レス 一 $9663 
@ (0 219:021A) :USRO0 の 開始 アド レス 一 $96693 
@$ (022B:022C) :USR9 の 開始 アド レス 一 $9668 

10 IRQ 割り 込み の サブ ルー チン の ジャ ンプ 命令 の 設定 

@ (0 5DF 一 0O5E1) : タイ マ の 割り 込み の ジャ ンプ 命令 
(PLAY の 実行 を し ます ) 
っ $ 7E (JMP) , $ED7 2 

@e (0 5E2-ー05E4) : KEY・IN の 割り 込み の ジャ ンプ 命令 
っ つ $3.9 (RTS) 


(12) BASIC 拡 張 用 の サブルーチン ・ ジ ャ ンプ 命令 テー ブル 
BASIC 内 の メイ ン ル ー チ ン や や 解読 実行 ルー チン な ど 基 本 的 に 重要 な ルー 
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ナン の 中 で は , この テー ブル を サブ ルー チン と し て 呼ん を で いる も の が あり ます . 
これ は , 将 米 BASTC の 拡張 を する 際 の 設定 や 、。 デ バッ グ な どの た め に 使う 
こと が で きる よう に する た めで す 【 現 在 の 時 点 で は DTISK モ ー ド 時 に 一 部 の 
も の が 設定 され て いま す が , それ 以外 は 全て , $ 3 9 (RTS) が 最初 に 入っ 
て お り , た だ 戻る だ け と な っ て いま す . BAS 1IC に 更に 拡張 し た 機能 を 持た 
せ た だ た い 場 合 に は , ここ を ジャ ンプ 命令 に 変更 し て ,。 ユー ザ の 作っ た サブ ルー チ 
ン に ジャ ンプ させ て 下さ い ]. 
@ (0 260 一 0262) : ブ ロッ ク 入 力 ル ー チ ン 拡 張 用 ($DAA6 よ り ) 
$ (0263-ー0265) : 解 読 ル ー チ ン 拡 張 用 (SC6 3D よ り ) 
% (0266 一 0268) : 解 読 ル ー チ ン 抜 張 用 ($C6D8 よ り ) 
@$ (0 29Fー0291) : テ キス ト 作 成 ル ー チ ン 拡 張 用 ($C5 0 2 より ) 
※ 他 の も の は , 6 一 1 節 を 御 参 照 下 さい . 


1 一 3 一 3 サブ プ ル ー テ チン 概説 
(1) ブロ ッ ク 転 送 ル ー チ ン 


| アド レス | $8597-$859E 
| 機能 | X レ ジス タ の 示す アド レス か ら , ロレ ジス タ の バイ ト 数 分 だ け , U 
レジ スタ の 示す アド レス 以降 に 転送 する . 
A, B, X, U 
| 入力 情報 | B レ ジス ター 転送 する バイ ト 数 (= ミ $FF) 

メレ ジス タ 転 送 元 の 先頭 アド レス 

り レ ジス タ 王 転送 先 の 先頭 アド レス 
B レ ジス タ が 0 に な る の で , Z フ ラグ が セッ ト さ れる . 

メレ ジス タ 三 転送 元 の 終了 アド レス 二 1 

り レ ジス タ 三 転送 先 の 終了 アド レス 二 1 
解 。 説 | この ルー チン を 使う 際 。 注意 し な けれ ば な ら な い の は 双 , け レ ジス 
タ の 大 小関 係 と 転送 領域 の 重なり で す . XX=U の と き は 問題 は あり ませ ん が , X 
ぐり の と き に , 転送 信 域 が 重なる 場合 は , 転送 元 の デー タ が 消去 され ます . 
な お , B レ ジス タ に $ 0 0 を 入れ て 呼び 出す と , 2 5 6 バイ ト 分 の 転送 が 行わ れ 
時 
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( 2 ) A, X レ ジス タ 転 送 ル ー チ ン 


$ ぉ 859F$85A6 


A, X レ ジス タ の 3 バイト の 内 容 を , B レ ジス タ の 値 の 回 数 分 メモ 
リ に 繰り 返し 転送 する . 
| レジ スタ | A, B, X,。 U (A, X メ レジ スタ の 値 は 保存 され る ) 
| 入力 情報 | A, X メ レジ スタ 三 転送 する べき 値 
B レジ スタ 転送 回 数 
り レ ジス ター 転送 先 の 先頭 アド レス 


(3) BIOS イ ニシ ァ ラ イス ズ スルー チン 


$867Bー$8683 

機能 | BI1OS を イニ シ ァ ライ ズ (初期 化 ) する . 

A, X 

(05A0) ニ RCB 用 ※RCB に つい て は , シ ステ ム 仕 様 参照 
$0 0DEー つ BIOS ジ ャ ンプ ルー チン 


(4) 割り 込み ベク トル 設定 ルー チン 


| アド レス | $8692-$86A5 

機能 | (FFF2ーFFFD) の 割り 込み ベク トル を 設定 する . 

| レジ スタ | A, B, X, U 

|WORK | (FFF2ーFFFD) 三 割 り 込み ベク トル レジ スタ 
(05D2) ーー 割り 込み ( IRQ) マス クレ ジス タ 
(FD0 2) = 割り 込み (IRQ) マス ク 1| ご O ポ ー ト 


も 859 7 一 ブロ ッ ク 転 送 ル ー チ ン 


解説 | 次 の 表 の よう に , 割り 込み ベク トル を 設定 し ます . 設定 後 は , I ノ 
0 ポート (FD 0 2 ) の 割り 込み マス ク の うち , RS 一 2 3 2C の RxRDY の 割り 
込み だ け イ ネー ブル に し ます .(FD0O 2) を 設定 し た 内 容 (=$40) と 同じ も 
の が (0 5D2) に 保存 され ます . 
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me ーーーーーーーー ーー ニーーー 一 ーーーーーーーーーーー ーーーー ニ ーーーー 一 ーーーーーーーーー 


割り 込み 名 | 割り 込み レジ スタ 年 り 込 み ベ クト ル | 割り 込み の 応答 
FFF2:FFF3 | 01D1 RT | 


SWI2 | FFF4:FFF5 | 01D4 | RTI 
IRO | FFF6:FFF7 | 01EO | JMP SD2FC 
FFF8:FFF9 ooo | me sesss 
'FFFB | 01D7 | RTI 
FFFD | 01DA | RTI 


(5) コン ソー ル 初 期 化 ルー チン 


$8656-$867A 
種々 の コン ソー ル 制 御 の 初期 化 を 行う . 
AB, X, 0 
|IWORK| (02A2 一 02AB) = ニ TAB 設 定 テ ー ブ ル 
(0 0BF) ー フ ァイル 番号 
SUB| $86CC 一 PF・ キ ー 設 定 ル ー チ ン 
$ も 86A6 - TAB 設 定 ル ー チ ン 
$ も DBE 1 - コン ソー ル 機 能 設 定 ル ー チ ン 
$ 三 4 4 - タイ マ 設 定 ル ー チ ン 
$C8BC 一 画面 設定 ルー チン 
$ ぉ 9BDB 一 PRINT OU エル ー チ ン 


解説 | 簡単 に 各 項 目 に つい て 説明 し ます . 
@PEF・ キ ー の 設定 (86CC) 

$ ゃ 8 6 じ C ル ー チ ン は , 1 0 個 の PF・ キ ー を 一 度 に 設定 し ます . 
@TAB・ キ ー の 停止 位置 の 設定 ($ や 86A6) 

TAB 設 定 テ ー ブ ル (02A2 一 02AB) を セッ ト し , $ 86A6 で BIOS 
の TAB SET [シス テム 仕様 2 . 2 . 11(11) ] を 呼び , 設定 し ます . 
@ コ ン ソ ゾ ソール 機能 の 設定 

$DBE1 を 呼び BIOS の CONSOLE CONTROL [シス テム 仕 
様 2.2.11(12)」 を リク エス ト さ せ て , 制御 フラ グ に $ 1 7 を 代入 し て いる た 
め ,。 コン ソー ル 機 能 と し て , TAB 動 作 . オー ダ 動 作 .。 カー ソル 表示 , プッ ト 
ウェ イト (ESC・ キ ー の 入力 受付 を 可能 に する ) の 処理 を 行う こと に な り ま 
す . 
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@ クイ マ の 設定 
$E44E は , BIOS の SET TIMER [シス テム 仕様 2 .2 .1 4(1)」 
を リク エス ト し, 制御 レジ スタ (TC) に , $0 8 を 代入 し て , 0 時 割り 込み 
の み を 可能 に し ます . 
@ 男 | 面 の 設定 
$C8BC で は , BIOS の INIT [シス テム 仕様 2 2.11(1)」 を リク エ 
スト し て 画面 の 設定 を 行っ て いま す . この ルー チン は , ワー クエ リア か ら フ パフ 
メー タダ を 次 の よう に 必 り ます . 


@ 苦 景 $00 ( 黒 ) と (0O1E6) 
@ 橋 到 $28 (=40) 一 (00C3) 
@ 行 数 $14 (=20) で と (030D) 
@ ス クロ ー ル 開始 行 $00 (= 0) (030 セ E) 
@ ス クロ ー ル 終了 丁 行 $13 (=19) <  ※ 

@ PF ・ キ ー 表 示 $00 (NO ) と (0310) 
@ 初期 設定 後 の 画 面 消去 $01 (YES) 

@ 単色 表示 $00 (NO ) 一 (05AD) 


※ 次 式 で 計算 きれ ます : (0 3 0F) 一 (0 3 0E) 十 ]1 
@ 先行 入力 の 禁止 [システム 仕様 2.2.4(8)] 
$9BDB で (00 BF) を 使用 する た め , デフ ォ ル ト 値 (=0) を 設定 し て 
画面 へ の 出力 指定 を し て いま す [4 章 参 照 ). 次 に , 画面 へ や 1B, $68 を $ 


の 禁止 を オー ダ し ます . これ を 解除 する と き は , PRINT CHR$(&H 
1B) +CHR$ (&H6 7 ) を 実行 し ます 〕. 


※ TAB 設 定 ル ー チ ン ($86A6),PF・ キ ー 設 定 ル ー チ ン ($ 8 6CC, 
$ 8 6 CF) に つい て は , フェ ー ズ 1 を 御 参 照 下 さい . 
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1 一 4 D| ら K・BAS1IC・INITIALI〆E 


D ISK モ ー ド 時 に 起動 きれ る この ルー チン は ,。 その 役目 が 済ん だ 後 は 消去 き 
れる 連 舘 に あり ます . し か し , その 間 に 行 う 初 期 設定 は DISK・BASIC 
を 呼ぶ 際 に 必要 不可 欠 の も の で す . 

DISK・BASIC・INITIALIZE (以下 DBSINI と 略 す ) ル 
ー チ ン は , デー タ も 含め (6E00 一 71D5) に 配置 され て お り , (0 5 9F) 
の 内 容 が $ 0 0 でない とき (FC0O 0 :FC0 1) の 示す アド レス (=$6E0O 
0 ) に 従っ て 起動 きれ ん ます. この ルー チン は , また , ユー ザ の プロ グラ ム (BA 
SI1C で 記述 され て いる も の ) の オー ト ・ ス ター ト を 行う こと も で きま す . な お 。 
この ルー チ ナン の (6E00ー6FFF) の 部 分 は 。 トラ ッ ク 0 の セク タ 1 5.,16 
に 后 納 され て いま す . 


1 一 4 一 1 主 な 動作 


@ デ ィ ス ク か ら 1ID セ クタ を 読み ,. そこ に ドラ イブ 数 と ファ イル バッ ファ 数 が 書 
か れ て いれ ば , それ ら を 設定 し ます . 

@ デ ィ ス ク の ディ レク トリ で “STARTUP" と いう ファ イル の 有無 を 調べ , 

な い 場合 は ドラ イブ 数 と ファ イル 数 を キー ボー ド か ら 入 力 し , 設定 し ます . 

@ ワ ー ク エリ ア の 設定 を 行い ます . 
(1) ディ スク 用 の バッ ファ 領域 の 確保 
(2) ディ スク 用 に 新た に 追加 され た キー ワー ド , 関数 な どの 更新 処理 
(3) ディ スク 用 の 入出 力 サ プ ブルー チン の ジェ ャ ンプ 命令 の 設定 
(4 ) 解放 RAM 領 域 の 確保 

@ テ キス ト ・ 変 数 の 消去 , 初期 化 を 行い ます . 

@ STARTUP と いう ファ イル が あれ ば , それ を , RUN (オー ト ・ ス タ 
ー ト ) させ ます . な い 場 合 は 。COLD・START ル ー チ ン に 戻り ます . 


1 一 4 一 2 ユー ザ ・ プ ログ ラム の オー ト ・ ス ター ト 


オー ト ・ ス ター ト が 可能 な 条件 は 。 次 の 2 つ で す . 
@」D セ クタ の 3。 4 バイ ト 目 に , 各々 ドラ イブ 数 ($ 01 一 0 4) と ファ 
イル バッ ファ 数 (00 一 $0F) が 書か れ て いる こと . 
@$ STARTUP と いう ファ イル 名 で セー ブ プ (SAVE) され た 。 プ ログ 
フラ ム (BASiTC で 記述 ) が ドラ イブ 0 に ある こと . 
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図 1・4・1 DBSINI の 主 な 動作 (オー ト ・ ス ター ト 関 係 を 中 心 に ) 


$ 6EO00 
23 AT・S「 三 1「RUE 


DBA=S 7213 


TRK =0 
SCT ニ 3 


AT.ST= ニ FALSE 


オー ト ・ ス ネス 
ター ト で な 
| plsk READ | い 場 合 は . 
キー ポー ド 
ID セク タダ タ を [ 有 か ら 入 力 を 
読み 込み , ド ERROR ? 隊 の 5 
9 020 ドラ イブ 数 , フ ァイル 
MON バッ ファ 数 の 設定 
ファ 数 が 書か 
EE MEI 上 
や ルト を 設定 
する 
ワー クエ リア 
の 設定 , お よ 
ぴ びそ の 他 の 処 
理 
FALSE 
町 2 上 4 ま ば 。 っ 
NIR TRUE 
3 
TON RUN "STARTUP" 
ス ダ ター ト さ る 
せる こと が を 実行 する 
で きる 
ディ レク トリ USER 
か ら 。 PROGRAM へ 
"STARTUP" 
と いう 省 の フ プ 
ァイル を 見 つ 
け 出 す 
COLD ・ 
START へ 
炎 の ファ イル 名 に 
する ※D BA ・ デ ー タ バッ プティ の 先 下 番 地 
TRIK ・ ト ラッ ク (0 一 39) 


で e 人 セク タダ (1-32) 
上 AT・< 全 年 オー ト ・ ス ター ト プラグ 


も 1 8 


% 巨 
es ーー 導 0) 交 
SCTー-SOT 十 1 DISK READ: 4 一 5 一 】 3) 参 昌 
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そこ で ,。 サン プル と し て , 』D セ クタ の 3 バイ ト 目 と 4 バイト 目 を 
1 番目 の プロ グラ ム で , ID セク タ を 書き 込み , 
て , "STARTUP" と いう ファ イル 名 で セー ブ プ し て 下さ い . 
(SAVE “STARTUP" 2) 
リセ ッ ト ボ タン を 押し て ,。 COLD・STAR 十 させ る と , 
ム が オー ト ・ ス ター ト し ます . 


10() ID MRITER for 馬 UTU BTRRT 

1 1 キキ テテ テキ キキ テテ キキ キネ テテ テテ テテ テテ テ エ エエ エエ テ エ エエ キテ キキ テキ テテ エ エエ エエ エエ エエ エエ エエ テテ エエ: 
1 で 0 DRV sa ma sm Numh ら Fr ロ † DriyY 星 弓 

1 3() F BUF 本 坦 間 NumbD ビ ロ † F11 己 BUf 和 †[ 

1 人 440 DRV ま 語 人 じ HR ま (DRV) † ロ TDD らら 己 ヒ 上 モロ WWF 上 

1 FBUF 符 。 。。。。。 CHR 生 (FEUF ) † ロ F TDD らら 呈 ヒ 上 ロ F WMFi キ G 

1 6 由 事 。 昌 生 。。 。。。。。 ソ ュ 1 ュ D1 呈 ら Or 5y5t 旦 m RandOm Hu 寺 和 † 呈 

1 アロ 本 キキ キテ テテ キキ ネエ テ テテ ネエ テニ エニ テ ニキ エキ エエ エニ テテ エエ キテ キネ テ エエ テキ テテ キキ キテ エエ エエ エ テ エ エズ テテ テテ : 
1 ロロ 


CLEAR _ 1009 


190 INFUT Dr ュ iv ら 守 F ュ 1 握 Bu い † 寺 所 上 

00) INFUT "HOw many Drivy 呈 ら ロロ yy ロ u wan モ て" ョ DRV 

ご 10 IF DRVE4 OUR DRVEY1 THEN BEEPEBUTU OO 

“で O INFUT "How many Fi1 己 BU†† 己 ビ 上 ら d ロ y ロ u wan も "sgFEUF 
で IF FBUF>15 UR FBUFEO _ THEN EEEFE BUTU だ どの 

ど 生 CHRNGE 1 ロロ 上 己 ロ ビ 上 エ O ロ Cha ビュ 8 ヒモ BBF †Q ロ Fr 号 上 上 ロ F WMFi て 呈 
ご こい) DR り ま = ニ じ HR ま (DRV) 

とら 60 F BUF ま ニ じ ビ HR ま (FEBUF ) 

ご / ロ RITE ID G 己 ヒモ 上 ロビ 

< り FIELD #0.1C2 ロ RG まま 。12 ロ 8 硬 $ 

ァ ワ ( ロ 訓 ニ に ml 

さ 00O DUMMY ま =DSET 生 (けり 0』 さき ) 

さき 1 0) Chan ロ 

さい LGSET ロ 和 ま =LEF 事 ( 朋 本 。 さ ) DRV ま +F BLUF ます 民 THT 事 (昌和 。 1 どう 
つつ し ) WWF ュ 1 革 戸 

さろ 人 0 回 慌 回 下り 。 う 


こら りり END 


RUN 
HOw man ロ ny DF1iY マ 5 ddO yOU Want 
HOw man ロ y Fi1 ら BuUff 呈 ビ 5 ら d ロ yOu wantE コロ 


R 己 3 ロッ 


DISE EDITUR FUR FMー ア 


ヨリ ルー 


xxE す の る ノ 
ログ ラム と オー ト ・ ス ター ト で 起動 する プロ グラ ム を BASIC で 作り まし た . 


2 番目 の プロ グラ ム を 入力 し 


の 2 に 上 の 0 グロ グラ 


DRIiVE 』 0 TIRACK は 』 0 psECTUR s 3 
+) 二 1 オー 土 計 圭介 ユ キ すら キア + ユ ロロ + + 台 す 旭 すじ +D キオ E 上 + ォ F ト 
90 = る OO OO _ 02G 05 OO OO OO ロロ O 00 OO _ 00O_ 00 OO _ 00 ロロ ー Em ae 
1 の 0 = 00 00 00 00 _ 00 00 00 00 00 00 00 0O_ 00 00 00 OO ー の 
20 ss _ 00 OO _ OO _ OO OO _ OO_ OO 900 00 00 00_ 00 00 00 0O 0 OO に 
ロー * ロロ 0 OO OO OO _ 00 OO OnO_ 00 OO_ 00 0 ロ 00 OO_ OO OO 00 OO ご 時 io 
40 = OO 00 n ロ O OO _ 00 OO OO OO OO _ OO OO0 OO_ OO _ 00O 00 0O0 お 0 の PE 
の リー 』 OO OO OO _ OO OO OO _ 00 _ 00 _ 00 00 00 00 00 00 OO OO is 
ら 60 * OO0 OO OO OO OO OO_ OO0 OO OO_ OO OO OO OO OO OO OO 2 
7 り 0 』 OO OO _ QOO_ OO_ OO_ OO_ OO_ QOO_ OO 00 00 600 00 0 000 00 OO 0 まき 。。。 ェ に ・ の 
BOO sk 00 OO0 0O0 ロロ 0 ロロ O0 oO _ 00O OO 00 00 00 noO_ 00 00 0 00 0 2 la 
90 gg 00_ 00 OO _ QO_ OO_ oOO OO OO 00 0 00 OO0_ 00 _ 00 00 0000 | s 


DD 5 OO OO OO n ロ OO OO OO OO Q ロ 0O OO OO0 00 OO _ 00 00 00 00O ー 
BO _ s 00 00 _ 00 OO OO _ 00 OO 00 0 00 00 00 00 00 00 00D OO ト 
CO 5 OO OO OO _ 00 _ 00 00 00 00 OO0_ 00 00 OO0_ 00 00 00 0O 本 
DO = nn0 OO 0O OO OO OO OO 00 OO_ OO0 00_ 00 _ 00 00 00 0O 日 
ED = ー 00 OO 00 OO _ 00 OO0 OO OO 00 00 00 0O0 OO 00 00 00 
FO  * 00 0 nnO nnO0 OO0 OO0 CO 00 00O 00 90900 00 00 0 00 00 00 ェ 
ー ESCRFE THTG PUDE 


EEY 記 " し ーー HRRDUUFY 


2 り 


1 。 STRRT _UF_FRUGRAaI 


1 語 還 還 計 エ テ エ エ テ そ エ ミエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エエ エ テ エ エエ エエ エエ エエ エ テ エ エエ エ テ エ < 
3 FNR(X) 。 、。。。。。。。 ロロ モト デー ロッ y ッ キモ Data frFOm MGm ロ Fy (Xs XX 二 1) 
和合 "saasama D 己 ツ 1 こと 己 「a ロ 1 己 HH ヒビ 選 ほ ら ドロ ュ ロ キ 与 F 

つう D り 放 2 欄 所 D ツ 1 と 己 Namm 己 (ロロ 己 モ す ビ ヒロ m D 己 Y1 こ と 己 1a ロ 1 己 ) 
ら 6 0 0 だ Sh ロモ ュ i ロ 己 1 OF ロロ Fintin ロ "1/ ロ " 

『 す MOURK・ 旭 RE 台 

ロ ) (1F) 人 NuumD 己 [ ロ † Dr 1\ 己 ら 

どり (7/1FE) 名 潤 に : NumD ら Fr ロ † Fi11 己 BUT 千 ビ 上 紀 († ロ 日 = 呈 F ) 
100 (DU うさ まり りさ 人 4) asa Fr 巳 有 ビ 8 1 ロロ 月 H ロ ゴビ 己 ら 弓 

11O (003F gs OO40 ) ・。。  FF 巳 和己 は En ロロ 月 dd ヒ 拍 王 弓 

1 デリ (らら ヒビ ー ) 匠 Ne D 己 ツ 1 て 巳 「a ロ 1 己 販 HF 呈 呈 

kt 症 還 全 エエ エ テ テ キミ モエ テキ エエ テキ エエ エエ テテ エエ エエ エエ テテ エエ テテ エエ テテ エ エエ テ エ エエ エエ テテ エエ エエ エエ テテ エエ テ エ テ ・: 
1.3 「 


140 DEF FNRCX)= じ VIT( じ CHR(FEEER (XX) ) すじ ビ HR ま (FEEE( 多 二 1))) 
15Q “ 

160 MIDTH 0 

17D FF1 ロ nt Ou 寺 内 己 らら ミロ 5 

18D FRINT " USER DESE BAGEIC GTRRTSG"sFPRENT 

170 PRINT "MM ほほ 8 ロ 己 5 " ョ 

OO FRINT SFC(3) "YU Can CC 己 ら 紀 n 己 ぶ 七 D 旦 ツ 1 ヒ 呈 。" 

デ 10 PF 上 in OU 上 いら ュ D1 呈 DISGE DF 1 \ 己 紀 

ccO_ PRINT SFC(16) ョ "DD15 ド 上品 。、。。『" 

で る 〇 FUR 【=O TH FEEK( み H71F 台 ) 


ご 和合 PRTNT PC ビ (2 ウ ) 5BTR 事 (エエ ) 00 ョ らら PC() 
と りり に ニテ 3: GU5SUE 470 
どら 6() NEXT 
デ / リ PF ュ ロ 上 ut いら D ロ 1 巳 1I ロ モビ DU 呈 ツ 1 ヒ 握 上 
CBO FRINT SBPC(16) 』 "ロモ ロビ 5。。『" 
0 RnD= ニ HH6E じ ドニ 
る 0 MHILE FNR(RD) く GO 
さ 10 DV="「 
kW FUHR 1= OO TH 3 
ささ D り も =D ソ まま + す じ HR ま (FEEE(FNR(RD) キ T) ) 
さあ 1 ロモ キモ と ヒ Hara ヒキ モビ † ビ ロ m DU 己 1C 己 IaDB1 星 
さ 和 4 NEXT 
うり PRINT PC(20) DU ョ 55PO (人 5) s 
さら O GUBUB 490 
さ 7( DD= ニ QRD+ す で ミド ビデ に ビエ 1 
取 す こ 1」 MEND 
う ロ コロ” PF1 ュ ロ 七 ロロ u い 上 ロモ hGF 思 姓 弓 弓 き 口 性 紀 
る ワ 90 FRTINT 
條 CO) FRINT TABE(12G) "You have " ョ FEEEK(&H71FE) 』 "Fi11 BU 寺 千 馬 [ ら 。“" 
410 FRINT 
ご FRINT TaB(1 ご ) 「"FF 量 呈 T ら xt 折 F 号 a TO ロ D 15 必 HTI 


和 43 PRTINT _ RIGHT 事 (" り の O リ + ォ HEX 還 (FNR (HOO きる うう) 4)5 の 
440 PRTINT 
伺 O FRTINT TaAEB(12) "Fr 己 RFGa お 1 と 己 1 王 族 日 " 


人 460 PRINT HEX 和 も ま (FNQA (HOO ヌ F ) FNR (CHOO さき) ) 』 By て 
4 7O NEM 
4 ロロ END 


4 日 ” PFin ロ モ 上 Qut InD ロ ut OF ut ロ nu も 
490 _ ロ NE GUHTO 510. コ 2O0 4 コ 00 コンロ 


っ (0) FRINT "For Innut 多 utDut 上 "iRETURN 
コ 1 1 PRINT "FoOr Innut" RETURN 
コーデ FRINT "FoOFr ロロ ut キロ ut “" xs RETURN 
うっ さり END 


USER DISE BASIC STRRTS 


MM 己 ら ら 8 ロ 己 \ Yu Can ヒヒ 己 ほ らら 品 己 ミキ D 己 V1 に 牟 呈 。 
D1 ら K 后 。。。 
0 Fnr Innut 多 HutDu キ t 
1 F ロ ビ Tn ロロ ut 選 ロロ モロ ぃ u モ 
ロモ ロロ 己 ビ 弓 。 < ょ 
FEYBDs FO ロ F InDu キ 
5CRNs For ut モロ pu キ も 
じ SO: FOFr Input Hu モ 上 pu キ 
LFTOs F ロ Fr ut ロ Du キ 


You hav ロ Fi1 巳 BU†† 馬 F 吾 ょ 
Fr 己 Tex rea Tan 1= &H1O3 コ 。 


Fr Fa Size 1j5 ら HG607 さ ロッ キ 65。 


ド 民 己 え d ッ y 


1 一 4 一 3 ドラ イフ 数 , ファ イル バッ ファ 数 の 決定 


オー ト ・ ス ター ト す る 場合 は , ID セク タ か ら 読 み 込ん で 設定 され ます が , そ 
れ 以 外 の 一 般 の 場合 は キー ポー ド か ら ユ ー ザ が 入力 する こと に な り ま す . 
キー ボー ド か ら 入 力 す る 際 の 動作 は , 次 の よう に な っ て いま す . 
(1) "DISK VERSION" を 出力 し ます . 
X レ ジス タ に 文字 デー タ の 先頭 番地 (=$7 19C) を 入れ , PRIN 
エル ー チ ン (=$74A6) で 出力 し ます . 
(2) “How many disk drives ? を 出力 し ます . 
この 出力 は ,。 “How many disk” と “drives ?” を 別々 に 行っ て いま す . 
出力 の 仕方 は 前 回 と 同様 で す が , 文字 デー タ の 先頭 番地 は 各々 , $ 7 1 
AB, 7 1 BA と な り ま す . また , これ ら の 出力 の 前 に フィ ー ル ド 設 
定 ル ー チ ン (=$D9 2F) を 呼ん で , 文字 出力 の フィ ー ル ド の 設定 を 
し で いま す 
(3) キ ーー 入力 を し て , ドラ イブ 数 を 設定 し ます . 
まず 。 BEEP ル ー チ ン (=$DB4 9) を 呼ん で か ら , 1 行 入 力 ルー 
ン (=$D807) を 呼び キー ボー ド か ら ド ライ ブ 数 を 入力 し ます . 
。 何 も 入力 し な いで RETURN キ ー を 押す と , デフ ォ ル ト と し 
ン 了 何 か 文 字 が 入力 され た 場合 は , 文字 解読 を し て 数 
値 に 変換 する ルー チン (=$705C) を 呼ん で , 範囲 内 な ら (1 以上 
4 以下 ) , その 値 に - 1 し た も の が (7 1FA) に 入り ます . 
※ー 1 する の は , ドラ イブ ゴ 番 号 が 0 か ら 始 まっ て いる か ら で す . 
(4) “How many disk files (0 一 15) 2? を 出力 し ます . 
2 と 同様 に , 2 つの 部 分 に 分 け て 出力 し て いま す . files(0 一 15) の 
の 廊 字 デー タ の 先頭 アド レス は $7 1 C 8 で す . 文字 デー タ は , その 最 
初 の デー タ が 文字 列 の 長 さ を 示し , その 次 か ら 文 字 列 デー タ が 長 さ 分 入 
っ て いま す . $7 4A6 の PR INT ル ー チ ン の た め の 文 字 デ ー タ は 。 
Me の つも この よう に に し て で おき ます 。 
5) キー 人 ファ イル バッ ファ 数 を 設定 し ます . 
(3③) と ほぼ 同様 で す が , 範囲 は , 0 以上 1 5 以下 に な り ま す . また , 数 値 
1 人 
キー 入力 の 際 も , フィ ー ル ド 設 定 ル ー チ ン (=$D9 2F) を 呼ん で フ 
ィ ー ル ド の 設定 を し て いま す . 
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1 一 4 一 4 DISK モ ー ド で の ワー クエ リア の 設 2 


DISK モー ド で は ,。 新た に ディ スク 用 の バッ ファ や , ワー クエ リア が 設定 さ 
れ ま す . ここ で は , その 中 で 重要 な も の に つい て 解説 し ます . 


(① SIPTR2E 失 


ID セク タ 。 ある い は キー ボー ド か ら の 入力 に より , 設定 され ます . 
@ (7 1FA) ドラ イフ 数 (0 一 3 

っ 入力 し た 数 一 1 の 値 が ここ に 入る 
@ (7 1FB) ・ フ ァイル バッ ファ アァ 数 (0 一 15) 

っ 入力 し た 数 の 値 が 入る 


(2) ドラ イブ テー ブル の 先頭 アド レス の 設定 


生 デ ィ ス ク ド ラ イブ の 中 に 入っ て いる ディ スク か ら F AT(File Allocation 
= 各 ク ラス タ の 使用 状況 を 記録 する 硫 域 ) を , 読み 取り , 変更 し , 

再び 記入 する た め の 領 城 が ドラ イブ テー ブル で す 。 これ は , ドラ イブ 婦 
(1 一 4) 分 , 確保 され ます . まだ , その 先頭 アド レス は , RS 一 232 
C が 何 個 装 着 さ れ て いる か に よっ て 異な っ て きま す . ここ で は , 0 個 と 
1 個 の と き の 値 を 示し ます が , それ 以外 の と き は , 計算 法 に 従い 計 鼻 し 
を まな 

% (71D6:71D7) : ド ドラ イブ テー ブル の 先頭 アド レス 

っ 0 個 … も 5078F 1 個 …$082E 

O 計 鼻 法 

$078F 二 [ (RS 一 2 3 2 C の 数 )*$9Fi 


(3) ファ イル バッ ファ の 先頭 アド レス の 設定 


ディ スク に 対し て 割り 当て られ る ファ イル 用 の バッ ファ 領域 が 取ら れ ま 
す 。 これ ら は , VIN 先頭 アド レス が 設定 され 
ます . 2 個 分 余計 に 取ら れる 理由 は , DISK・BASIC で 使う 「F 
{IE 工 D #0, 一 」 で 設定 され る !「DSKO$」 と !「DSKIS」 用 
(シス テム ラン ダム バッ ファ ) の も の が 一 つと 。 プロ グラ ム の 入出 力 和 や 
「DSKINI」 に グズ デム 月 }) の も の で 計 2 個 分 余分 { こ 取 られ ます . 昌 4 

ァイル バッ プ ァ の 先頭 デ ド レス は . 場合 に よ - つ て 値 が 変わ っ て きま す の 


J2 


で 計算 法 の み を 載せ て お きま す . 実際 に は , 表 1・4・1 に RS 一 2.3 
人 4・2 に RS 一 2 3 2 C が 1 個 の と き の 値 が 
出 て いま す (な お ,。 ファ イル 番号 と ファ イル バッ ファ 番号 は , 一 致し な 
eiAni 和 bu 呈 人 
@ (7 1D8:71D9) : シス テム ラン ダム バ ッ プ ァ の 先頭 デ ド レス 
@ (7 1DA:71DB) : フ ァイル バッ ファ # せ 0 (シス テム 用 ) の 
肖 プ ドレ ス 
@ (7 1DC: 71DD) : フ ァイル バッ ファ # 革 1 の 欧 頭 デ ド レス 
※ (7 1FB) 十 2 個 分 だ け , その 先頭 アド 
ni それ 以外 の も の は , $ 
0000 の 値 に な っ て いる . 
(71F6:71F7) 5 1 4 の 先頭 アド レス 
(71F8:71F9) : フ ァイル バッ ファ 北 革 1 5 の 先頭 アデ ド レス 
O 計 算法 
ファ イル バッ ファ 革 せ 欠 の 光 頭 デ ド レス 
=ー (71D6:71D7) 十 「 (ドラ イブ 数 ) *$9Ei 
二 !) (X 十 1) *$010Fj 


※X は ファ イル バッ ファ 秋 号 を 示す 。 ドラ イブ 数 は ,。 1 一 4 の 範囲 で ある . 


(4) BAS1C テ キス ト エ リア の 先頭 アド レス の 設定 


ROM モ ー ド で は , テキ スト の 先頭 アド レス は , RS 一 2 3 2 C の 個数 
に よっ て 突 作 し まし だ が 。 DTISNK モ セー ド の 叶 ば ドブ ティ イン 数 。 グ ア イ ル 
バッ プア ァ 数 に よっ て も 変化 し て きま す . 具体 値 は 表 1・4・1 や 表 1・ 
中 w の グ の ほ 示し ます 。 

@ (0 0 3 3 : 0 0 3 4) : テ キス ト の 先頭 アド レス 


O 計算 法 
テキ スト の 先頭 アド レス 
ー$ 和 0 78F 十 |! (RS 一 2 3 2C の 数 ) *$9F! 


( 
| 
十 | ( ド ライ ィ イプ 数 )*$9EI! 
士 | (ファ イル バッ ファ 数 二 2) *※010F! 十 ]1 


※ ド ライ ブ 数 は , 1 一 4 の 男 囲 で ファ イル バッ ファ 数 は 0 一 15 
の 男 囲 で す . 
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例 1 RS-ー232C 0 jj ドラ イブ 認 1 


ブ ァ イル パッ プ ァ 
還 BASIC の テキ スト 領域 


0A4C 

際 シ ツ ス テム フン ッ ング ムッ パッ プア は IE TE 上 ED すす 0 デ (用 に 。 ツ ウツ ァイル パッ ツア テル 【 北 0 は アプ ログ ゲ グラム の 入 放 

用 な と シス テム で 使わ れる た め 。 ユ ー ザ 用 の ファ イル バッ ファ が な く ユ ー ザ の ファ イル を ディ スク に 対 
すま で で きい. 


例 2 RS 一 232C (ボー ト 0 ) 1 : ド ライ ブ 数 2 : フ ァイル バッ ファ 数 5 


ファ イル パッ ファ 


ファ イル バ パッ ファ 


ドー 


ッ ンス テム ラン ダム 


ドー 
に ニョ 症 | 


078FE 082E 09DB 0 AEA 0BF9 0F26 

表 1・4・1 ドラ イフ テー ブル と ファ イル バッ ファ と テキ スト の 先頭 アド レス 
DRIVE TABLE TOUF_ DDRESS FILE BUFFER TUF _ ADDRESS 
RG デラ う ン ピ = ロロ 
DR IVE5 1 の う 4 
(/1D6: DZ) DRVTBEL 07 ロ F 7 ロト O7 ロ F 07BF 
(/1D ロ iD9) SYSRND 0 ロン D OBCB り ワ ム 69 う 朋 り / 
(/ZiDRsDBE) 昔 遼 〇 O ワ うじ DD 台 人 台 / 晶 OB16 
(/Z1DCkDD) 提 埋 1 う 人 4B ORE OB 昌 ア O じ 2 つ 
(/1DEiDF) 音 提 過 り B ご 内 DBF OC96 り D う 4 
(/1EOsiE1) 間 3 O じ 6 ODO ア 7 ODR5 2E 人 3 う 
(/Z1EEkE う ) 拉 井 和 4 OD 7 日 (上 16 OEBE4 OF ラジ 
(/71E4:E コ ) 拉 寿 OE コ ロア OF と つ OF じ さ 1O61 
(7Z1E6iE ア 7) 柱 杜 6 ()F ム 6 1 344 1 0D ジ 1170 
(/Z1EBkE⑦) 間 / 1 Of 1 1 43 11E1 2 近 / に 
(/1ERiEE) 拉 埋 日 11E4 ジュ アフ 1 ご FO 1 3 日 ヒ 
(/1E じ CiED) 社 共 9 1 ご いう 1361 ょ うさ FF 1 479D 
(/Z1EEiEF) 村 #10 1 3D ど 147O 1 コ OE 1 コロ じ 
(/1FOgF1) 奉 太 11 1 4E 1 7 161D 1 ら 2B 
(71F ご ェ F う ) 欄 柱 1 ど 1 っ F 1 6BE 1 アン ご し 1 7CR 
(/71F4sF) 間 13 1 6FF 179D 1 フロ る H 18D9 
(/1F6:F/) 社 提 1 人 4 きこ 19」 コ 1 日 ロビ 1 ワ 4 1 7 ヒロ 
(/1F ロ isF ア ) 拉 拉 1 コ 1 17HB 1 生 コ 9 1 介 F 7 
TEXT TOF 
(DO うさ う 』 う 4) 
FILE BUFFERSG = 0Q Oa4 じ OAER OB 日 OC2 ら 6 
FILE BUFFERE = 1 OBSB (HBF マ ロビ 9 ア OD さ 5 
FILE BUFFERG = 2 O ビ 6 ODO 日 ODaQ6 OE44 
FILE BUFFERS = ソ る OD/ マ OE1 ア O ヒ は コ OF 3 
FILE BUFFERS = 44 OE OF ご ら 6 OFC4 1 6 ご 
FILE BUFFERS = 5 (OF ワ ア 1 O③ ら 10D.3 11/1 
FILE BUFFERS = ら 6 1 0 台 ら 1 1 人 4 人 4 よ ピ 1 日 O 
FILE BUFFERS = ソ ア 11ES 1 2 コマ だ ドミ 1 3 ロ F 
FILE BUFFER5 = 1 ご ビオ 4 1 うら 6 ど 1400 1 49E 
FILE BUFFERG = よさ うけ 3 1471 1 つり 1 コ D 
FILE BUFFER = 10 1 4 ヒジ 15 ヨ ) 161E 16BC 
FILE BUFFERG = 11 1 ロ F 1 16 ロ F 1 7 ビ D 1 7CB 
FILE BUFFERS = 12 1 ア 7 | 巡 』 コ 1 フ H.3 じ 1 ビ DRf 
FILE BUFFERS = 13 1 ロ OF 18RD 194B ーー 
FILE BUFFERG = 14 「 還 - コ 1 9 日 じ 1 ロコ R 1 RaF 日 
FILE BUFFERS = 15 1 ご D 1aCB 1 ビ ら 6 1 じじ OZ 
* DRVTEBL = DRIVE TaBLE 
ォ SYSRND = BYSTEhH_RRNDUFHI BUFFER 
テ 直幸 D uU5Gd +or SYSTEM 
# Th 呈 FILEBUFFER no も ら 56t up by DESINI take b0000 


J4 


表 1・4・2 


DRIVE TaELE TUF DDRESS あぁ 


ドラ イフ テー ブル と ファ イル バッ ファ と テキ スト の 先頭 アド レス 


RG ビュ デビ ミニ 1 


FILE EUFFER _ TUF _aDDREG5 


DR TVES 1 っ 4 
(71D6:D7) DRVTBL OB2E OB2E OB2E OB2E 
(71DBs D9) BYSRND OBCC O96A oOaO8 Oaa6 
(71DaiDB) 欄 桂 O O9DB OA79 OB17 QBB5 
(71DC:DD) # 拉 1 OaER OB OC26 OCC4 
(71DEzDF) 拉 # OBF9 OC9 フ 7 OD る 5 QODD マ 
(71EOkE1) 柏 桂 マ ODo8 ODA6 OE44 OEE2 
(71E2sE マ ) 牧村 4 OE17 OEB5 OF53 OFF 1 
(71E4:E コ ) 欄 持 OF26 OFC4 1062 110O 
(71E6kE7) 拉 井 6 1 0 さ 1OD マ 1171 1 2OF 
(71EB:E9)  # 社 7 1144 1 1 ビク 1 2 ヨ O 1 マ 1E 
(71EA:EB) ## 日 1 253 1 2F 1 1.38F 142D 
(71EC:ED) 拉 析 9 1 62 140Q 1 49E 15 さ C 
(71EE:EF) 欄 社 10 1471 15OF 15AD 164B 
(71FOkF1)  # 拉 11 158 ヨ o 161 ビ E 16BC 1 75a 
(71F2 ェ F マ ) 料 12 1 6 ヨ F 172D 1 7 ビ B 1869 
(71F4:FS) 拉 拉 1 る 179E 1 コ 3C 18DA 197 
(7 ア 1F6:F7) 栖 14 1aD 194B 1 9 ビワ 1 87 
(71F 日 sF9) 和 # 拉 1 19BC 1 AS5Aa 1 AFB 1B96 
TEXT TOP 

(OO そう さ 4 ) 

FILE BUFFERB = OQ OoQAEB OB ウ OCS フ 7 OCC5 
FILE BUFFERS = 1 OBFA OC9 昌 OD さ 6 ODD4 
FILE BUFFERB = 2 oODo9 ODA7 OE45 OEES 
FILE BUFFERS = ミ  OE1 OEB6 OF54 OFF2 
FILE BUFFERS = 4 OF27 QFC5 106 さ 1101 
FILE BUFFERS = コ 10 る 6 1OD4 1 アラ 1210 
FILE BUFFERS = 6 1145 1 1 1281 1 さ 1F 
FILE BUFFERS = 7 1254 1 2F2 13 さ 90 142E 
FILE BUFFERG = 日 16 1 4O1 1 49F 1 さ 3D 
FILE BUFFERS = 9 1472 151O 15AE 164C 
FILE BUFFERS = 1O 1581 161F 1 eBD 175B 
FILE BUFFERG = 11 1690 1 72E ん 1 ヨ 6a 
FILE BUFFERS = 12 179F 183D 18DB 1 979 
FILE BUFFERS = 1 さ 18AE 194 ビ 19Ea 1 
FILE BUFFERSG = 14 19BD 1 A5B 1 AF9 1 B97 
FILE BUFFERSG = 15 1AaCC 1B6a 1 Co 1CA6 


# DRVTBL = DRIVE TaBLE 

% GYGRND = SYSTEM RaRNDUM BUFFER 

\ 葵 井 り らら Tor BY5TEM 

# TIh FJLEBUFFER nat = 上 up by DBSIN} モ take 和 ま OOQOO 


(5) シス テム ラン ダム バッ ファ の 初期 設定 


この バッ ファ ア は , 「F TELD#0 一 」 で 設定 され る 「DSKO ゃ $」, 
'DSKI$」 用 で , それ 以外 の 用 途 で 使う こと が な い の で , ここ で ラ 
ング ム フ ァ イル の バッ ファ と し て の 初期 設定 を 行っ て お きま す . 
(71D8:71D9) の 値 を XX と お く と 次 の よう に な り ま す . 


@ ( XX ) ・ ラ ンダ ム フ ァ イル の 指定 
>$ 4 0 
@ (X 十 0 7 :X 十 08) : フ ァイル バッ ファ の 長 さ 
っ 0100 (256 バ イト ) 
@ (X 十 09 :X 二 0A) : 1 エ プ 0 バ ッ フ ァ の 始ま る アド レス 
っ 文 二 0F 


ひ り 


1 一 4 一 5 ワー クエ リア 設定 後 の 動作 


ワー クエ リア 設定 後 の DBS IN1I の 動作 は , 以下 の よう に な り ま す . 
@ や 8F3 9 を コー ル し て , テキ スト , 変数 の 消去 と 初期 化 を 行い ます . 
@ 沢 用 読み 込み ボイン タ (D 9 :DA) を $8 7 58 に し ます . 
@ 現 在 , ダイ レク トモ ー ド で ある こと を 示し ます 【〔(0 0 4 7 : 0 0 48) を , 
$ も FFEF に し ます 〕. | 
※ 以 上 の 3 つ は 。 CO0LD・START ル ー チ ン で 行っ て いる こと で す が , そ 
の ) 衣 十 す る 前 に 。 こ の ルー チン に ジャ ンク し て きた だ の め の 。 代り に こと こ で 条 。 
CN 9 。 
@P・F ド キー を DTISK モ ー ド 用 に し ます . 具体 的 に は 。 レジスタ に $6E0O3 
を 代入 し , $ 8 6 CEF を 呼び 出し ます . PE・ キ ー の デー タ は ,$6E03 一 
$ ゃ 6E4 3 に 格 約 され て いま す . 
これ ら の 処理 が 終わ る と , オ ー ト ・ ス ター ト フ ラグ (7 2 1 3 ) を 参照 し て , そ 
の 値 が 0 な ら ば , 割り 込み マス ク を 解除 し て , $863E (1 一 3 一 1 紹 ) ヘ ジ 
ャ ンプ し ます . オー ト ・ ス ター ト フ ラグ (7 2 1 3 ) の 値 が 0 以外 で あれ ば , 割り 
込み マス ク 解 除 後 。、RUN "STARTUP" を 実行 し ます 


1 一 5 HOT・START 


HOT・START ル ー チ ン は 。 RE SET が か か っ た と きき に, ブレ ー ク ・ キ 
ー が 押さ れ て いれ ば 起動 し ます . その エン トリ は , (FBFC:FBFD) の 内 容 , 
すなわち $8 6 8 4 で す (1 ユ 1 一 1 一 2 節 参 嶋 ). 
HOT・START ル ー チ ン の 動作 は , 以下 の よう に な り ま す . 

91)P レ ジン スク ぷと ク リア し まう 9。 

@ コ ン ソ ゾ ソール な どの 初期 化 を 行い ます (8656 を コー ル し ます ). 

※ こ の た め , ホッ ト ・ ス ター ト を か ける と , PF・ キ ー は , DI SK モ ー ド 時 
で も , ROM モ ー ド 時 と 同様 に 設定 され ます (詳し く は , 1 一 3 一 3 節 の 
$8656 を 御 参 照 下 さい . 以下 同様 ). 

@BIOS を イニ シア ァ ラ イズ し ます ($8 6 7B を コー ル し ます ). 

@ 征 | り 込 み ベ クト ル を 設定 し ます ($8 6 9 2 を コー ル し ます ). 

@ 証 | 込み マス ク を 解除 し ます (CC レジ スタ の F フ ラグ と !I フ ラグ を 0 に 

ます ). 

これ ら の 処理 が 終わ っ た 後 。 Abort ルー チン (や D680) に 飛び ます . 


S0 


有 協 2 草 及 457 と アン タプ リタ の 峡 覆 


は じ め に 


FM-ー 7 を は じ め ,。 現 在 普 及 し て いる パソ コン は すべ て ,BASTIC(Beginner's 
All Purpose Symbolic Instruction Code) と 呼ば れる ブロ グラ フラ ミング 言語 体 茶 
が 主軸 と な っ て 構成 され て いま す . し か し , BAS1IC で 書か れ た ブロ グラ ム を 
実際 に 実行 し て いる の は , イン タブ リタ と 呼ば れる , お び た だ し い 数 の マシ ン 語 
ルー チン の 有機 的 結合 体 な の で す . な お , [ルーチン 」 と いう の は | 一 定 の 仕事 を 
行う 、 小さ な プロ グラ ム の ひと 塊 」 の こと を いい ます . 

さて , も うす で に 御存知 の 方 も 多い か と 思い ます が , 我々 が キー ボー ド を 叩い て 
打ち 込ん を だ 「PRINT Al と か [|Y ヤ =SIN(X)] な ど と いっ た プロ グラ ム 
は , その まま アス キー コー ド で メモ リー に 書き 込ま れる の で は な く , 中 開 コ ー ド 
と 呼ば れる 一 種 の 暗号 に 変換 され た 形 で メモ リー に 格納 され ます . 中 間 コ ー ド と 
いう の は , 我々 が 目 で 見 て わか る [PRINT Al な ど と いっ た だ BASIC 言 
語 と ,。 コン ピュ ー タ が 即 実 行 す る こと の で きる 「7E AB F4 ($ABF4 
番地 へ と ジャ ンプ する 命令 コー ド )」 の よう な マシ ン 語 と の 合 の 子 的 な 存在 で あっ 
て , イン タプ リタ の 骨格 を 成 し て いる の は , 中 間 コ ー ド の 集合 体 で ある 中 間 言 語 
プ ブログ ラム を 作成 する 部 分 と , 中 間 言 語 プ ログ ラム を 実行 する 部 分 の 2 つ で ある 
と いっ て よい で し ょ う . 多く の , BASIC を ある 程度 マス ター し た 方 々 に と っ 
て , BASIC ブ ログ ラム が 中 間 言 語 へ と 変換 され て いく 過程 。 また だ, 中 間 言 語 
と し て 蓄え られ て いる プロ グラ ム が どの よう に 解読 され 実行 され て いく の か , と 
いう こと は , 興味 津々 な 事柄 で ある に も か か わら ず , 謎 の ベー ル に 包ま れ た 神秘 
の 森 で , な か な か 立ち 入り 難い と ころ で は な いで し ょ うか . 実際 イン タフ リタ 
に つい て , 詳し く 〈 く 知り 尽く す だ た め に は 。, 伺 十 氏 Kbyte も の マシ ン 語 ブ プログ ラム を 人 解 
析 し な けれ ば な ら ず , か な り 骨 の 折れ る 仕事 で ある と いえ まし ょ う . 

この 章 で は , 主として , BAS TIC プ ログ ラム を 中 間 コ ー ド に 翻訳 する ルー チ 
ン と , 中 間 コ ー ド を 解読 ・ 実 行 す る ルー チン の 2 つの 部 分 に メス を 入れ , BAS 
I C 言 語 体系 の 骨格 と な る 部 分 に つい て 謎 解き を し て いき ます . 

な お ,「BASIC フ ログ ラム の 地 の 廊 」 と いう 表現 が いく つか 出 て きま す が , 
「 地 の 文 」 と は 主 に 「 注 釈 文字 列 や 廊 字 列 定 数 で な い 部 分 」 の こと を 指し て いい 
ます . 
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2 一 1 BASIC プ ログ ラム の 格納 形式 


BASIC の プロ グラ ム を 作成 する に あたっ て , 重要 な 領域 が 3 つ あ り ま す . 行 
入力 バッ ファ ($ 0 4 3D 番 地 一 )、 テキ スト バッ ファ ($ 0 3 3C 番 地 一 ), テ 
キス ト エ リア (標準 R OM モー ド 時 , $ 0 7 9 0-) の 3 つ で す . また だ , 各 エ リ 
ア が どこ か ら 始 まっ て どこ で 終わ る の か を 指し 示す ポイ ンタ 群 を は じ め , 答 種 の 
重要 な 情報 が 詰め 込ま れ て いる ワー クエ リア ($0000-$078F 番 地 ) は , 
測 時 イン タプ リタ か ら 参 照 さ れ て お り , 先 の 行 入 力 バ ッ フ ァ , テキ スト バッ ファ 
は と も に , この ワー クエ リア 内 に あり ます ( 図 2・1 ・2 参照 ). 

to が キー ボー ド る を 敗 い いて 大 人力 し た プロ グラ ム は き は ー 条 人 用 ルー ナン に さ 
っ て , アス キー コー ド の まま 「 行 入力 バッ ファ 」 に 一 時 的 に 著 え られ ます . 行 入 
カカ バッファ 内 の 1 行 の プロ グラ ム は , 次 の 上 明 間 |BAS1ICG 中 間 言 語 翻 訳 ル ー 
ナン 」 に よっ て 中 間 言 語 に 翻訳 され な が ら , | テキ スト バッ ファ 」 に 俗 約 され て 
いき ます . 最後 に , 入力 され た 1 行 が | 行 番号 ]」 を 持っ て いれ ば , テキ スト バッ 
ファ 内 の 1 行 が 「 テ キス ト エ リア 」 内 の 所 定 の 位置 に 転送 され , | 行 番号 」 を 持っ 
て いな けれ ば , 「 ダ イレ クト 命令 ] と みな し て 実行 され ます . 以上 の 様子 を 間 単 に 
凶 示し た の が 図 2・ 1 ・ 1 で す . 


図 2・1・1 一 行 入 力 お よび 翻訳 ・ 格 納 の 様子 


Pe pi LM 


人 行 入 力 パ バッファ DAS1IC 忠 間 言 


(43D 一 53C) 1 
(一 行 害 訳 の 実行 ) 


の ポ の へ ド ノッ ファ 
(33C 一 43B) ーー ンー 一 行 番号 が あれ ば 一 行 格納 


il 


Se ドー リナ 
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鹿 2・1・2 _ RAM 領域 の メモ リー マッ プ と ワー クエ リア (DI1SK モ ー ド ) 


アド レス 
0 0 00 
時 日 ア ' 
の 。 。 , | テキ スト バッ ファ 中 の 廊 の 長 さ 
078F CA こま 
0790 


ドラマ インデ ー ア ル 


& 
ファ イル バッ プア ァ 等 


33:34| テキ スト エリ ア 先 頭 番地 
ー (883:34)1 So:9 6 単純 変数 の 先頭 番地 


WW 


(0DO8) 
人 に | 


e2 プ デイ ル の 
D り DISK 時 


問 申 1C の 中 間 
言語 が 格納 され る 


り 63 9 3 36 
リッ HP EE2LC27TD 


| 

| 

| 旦 

! 3 B:3C 配列 変数 の 先頭 番地 
| 3D:3E| フリ ー エ リア 先頭 番地 
| 


| 
| 
| 
| 
0 ー | 
\ ル er: 訟 36) 」 
配列 変数 の 「 
| 
| 
| 
| 


格納 エリ ア 


メリ ー エ リア 


スタ ッ ク 領 域 


現在 編集 中 の 行 番号 
(3 3C 一 4 3 B の 一 行 に 対応 ) 


"テキ スト 作成 用 バッ ファ 
(テキ スト バッ プ ァ ) 


8000 
0 リウ 


ROOM 


ーー ニー 
EE 人 ピー 
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それ で は , 中 間 言 語 プ ログ ラム は 一 体 ど ん な 形 で 格納 され る の で し ょ うか . 
一 例 と に だ 9 


10、.PRINTJ JA 
2 0..GOTO.,2 0 


と いっ た だ ただ, 簡単 な プロ グラ ム を 書き 込ん で 調べ て み ま し ょ う . 

この プロ グラ ム が , 広い メモ リ 空 間 の どこ に 書き 込ま れ て いる か を 調べ る た 
め に , MON (モニ タ ) コマ ンド を 入れ て , モニ タ 上 で 「D0 0 3 3」 と 打ち 込 
ん で みる と , (3 3 :34) は $0 7 9 0 (この 値 は 標準 OM モー ド で の 値 で あ 
り , DISK モー ド で 例え ば DRIVE 数 2, FILE 数 2 を 指定 すれ ば , $ 0 
D0 8 となり ます ) と な っ て いま す . 図 2・2・2 に 示し た 通り , (33 1:34) 
に は テキ スト エリ ア 先 頭 番地 が 入っ て いま すか ら , BAS 1IC の 中 間 言 語 は ,$ 0 
7 9 0 番地 か ら 格 納 さ れ て いる こと が わか り ま す . さっ そく 〈 く , モニ タ 上 で 1|ID0 
7 9 0 」 と 打っ て , 先 租 の プロ グラ ム の 中 間 言 語 を 打出 し て みる と , 次 の よう に 
な り ま す . 


0790 番 地 
0798 000A B9 20 41 00 


EE に nr nm ume Pi ES ea 


①) ② ③ 。 ⑨ ⑤ ⑯ 
六 0798 番 地 
07A4 0014 87 CD 20 FEFE20014 


EL EE mm mmm mm mm mm mm mn ーー 生生 EE ーー FN っ 本 ee ーー 


① ② ③  ⑨③′ ③④⑳ ※ 
00 
⑥ 
yyU07/7A4 2CU0U33 36 
0000 07A6 
6DM (変数 エリ アス ター ト : テキ スト 終了 ) 


BAS1 し じ の ブロ グラ ム は , 行 ご と に ひと か た まり に な っ て お り , 中 間 言 語 で 
は , これ ら 人 各行 の 区 切り に は 必ず , NULL($ OO 0) が 置か れ ま す . 逆 は 必ず し 
も 成り 立た な ず , $ 0 0 が ある か ら と いっ て , それ が 必ず し も 行 の 区 切り を 表し て 
いる と は 限り ませ ん . 例え ば , 上 の 例 で は ⑥ と ぐ ⑥' が 行 の 区 切り を 表し て いま す が , 
②, ②' お よび ※ の 中 に 含ま れる $00 は 「 行 の 区 切り 」 で は な い の で す . この 辺 
の 事情 は , 後 の 草 で 説明 する , 行 番号 検索 ・ 非 実行 文 の スキ ッ プ な ど で 特 に 重要 
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意味 を 持っ て きま す . 

| 各行 の 先頭 に は , 次 の 行 の 先頭 番地 を 指し 示し て いる [リン クボ ポイ ンタ 」 
と 呼ば れる 2 バイ ト の デー タ が 門 か れ ま す . 一 見 , 無用 の 長物 の よう で す が , G 
OTO・GOSUB 廊 の 飛び 先 検索 を は じ め , 各種 の 検索 操作 の 際 に 非常 に 役 に 
ち ます . 中 間 言 語 プ ログ ラム を 見 て いく 際 。 この リン クボ ポ インタ を 手がかり に 
し て 辿っ て いけ ば , 次 の 行 が どこ か ら 始 まる の か が 一 目 瞭 然 で あり , プロ グラ ム 
の 実際 。 上 の 例 で も ① 
を 見れ ば , 次 の 行 が $ 0 7 9 8 番地 か ら 始 まる と わか り , その 手前 の ⑨⑥ の $ 0 0 
が 1 行 目 の 終り と な る こと が すぐ に わか り ま す . 

炊 の ,。 の ②⑦ や ②' に 書か れん て いる デー タ は , それ ぞ れ の 行 の 行 番号 を 表す 1 6 進数 
で す . ドーBASTIC で は , 行 番号 と し て 0 一 639 9 9 の 整数 を 使う こと が 許 
され て い ます か ら , 答 行 と も この 位置 に は , $0000 か ら $F9FF ま で の 行 
番号 定数 が 入る こと に な り ま す . 

3 番目 に 位置 する , ⑨⑤ の $B9,⑧' の $ 8 7 や , ③' の $ CD な ど は 一 体 な ん で 
し よう が か 。 プ スキー コ ヨコ ヨード で や B9 は イケ イマ と いう カナ 文字 の コ ヨ コード に 該 る 訳 で 
す が 。 実は 。 こ の $B 9 こそ が "PRINTY を 表現 する 中 間 コ ー ド な の で す . 
同様 に も 587 は YGOY を , まだ た , $CD は YTOY を 表現 し ます . BASIC 
イン タブ リタ で は , プログ ラム を 読み 込ん だ 際 に 「 予 約 語 竣 り | で 始ま る 1 節 を 
先見 する と , アス キー コー ド で カナ 文字 な どの 領域 (5 8 0 一 $FF) に 位置 す 
る コー ド , 即ち , 中 間 コ ー ド へ と 翻訳 し て いく の で す . BAS 1IC 内 で , カナ 文 

の 変数 名 ・ 関 数 名 が 使え な い 埋 由 も ここ に ある の で す . 従っ て , BASIC プ 
ログ ラム 中 で , カナ 文字 を 打ち 込む と , すぐ に |Syntax Error| が 出 て し まい ま 
す (も ちろ ん , 文字 定数 内 の カナ 文字 や , 注釈 文字 列 中 の カナ 文字 は 別 で す が ). 
プロ グラ ム の 書き 込み 時 に お いて この |Syntax Error」 が 出る の は , 上 述 の ケー 
ス の 他 に は , 行 番号 が 0 一 63999 の 間 に な い 場 合 と YGOY の あと に 
0Y マ も し く は YSUBY が な い 場 合 ( 空 日 Yー マ が 間 に い くら 狭まっ て いて も 。, 
侯 に YTOY ま た は YSUBY が あり さえ すれ ば ぱ ば 。 エ ラー は 出 ま せん ) の 2 つ だ 
け な の で す . BA S IC プ ログ ラム の 地 の 文 に カナ 文字 を 打ち 込む こ と が , いか 
に 致命 的 な ミス で ある か が わか る で し ょ う . な お , どの 中 間 コ ー ド が どの キー ワ 
ー ド ( 馬 約 語 ) に 対応 する か に つい て は , 6 一 4 節 「 中 間 コ ー ド 一 覧 表 」 な ど を 
了 時 参 吉 し て 下さ い . これ ら の 表 に は , コー ド と 予約 請 の 対応 だ け で な く . 各 処 
理系 の エン トリ ・ ア ドレ ス ( 入 日 番地) も 掲載 し て あり ます . 

④ お よび ④ の $ 2 0 は , 「 空 白 ]| を 表す アス キー コー ド で す . BAS IC プ ログ 
ラム 中 で は , ひと つなが り の 言葉 ( 子 約 語 り ・ 変 数 名 ・ 関 数 名 な ど ) の 間 に 割 
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込ま な いか き ぎり, 空 日 は 無視 され る よう に な っ て い ます. です から , プロ グラ ム 
リス ト を 出し た 隊 に 見 や すく な る よう に , 空白 を 挿入 ・ 配 置 す る の も , プロ グラ 
ミン グ 上 達 の た め の 一 つの コツ と な り ま す . ⑤ の $ 4 1 は , 変数 名 「A」 を 表す 
アス キー コー ド で す . 変数 な どの 取扱 い に つ いて は , 後 の 章 で 詳し く 説 明 ぃ た し 
ます . 

さて , ※ の $FEF20014 と いう 長い 級 り は 一 体 な ん で し ょ うか . 実は , 
これ が |「GOTO 20」 の 「2 0」 を 示す 定数 表現 な の で す . 科 単 に 説明 する 
と , 到 人 切 の $ FE が | 定数] で ある こと を 表す 中 間 コー ド で , 特に , ゃ FEF2 
で 始ま っ た 場合 , その 直後 の 2 バイ ト が | 行 番号 ] を 表す 定数 値 で ある こと を が 
あ 9 ec: 選 

最後 に . ぴの $0 0 0 0 で す が , これ は BAS IC の プロ グラ ム が ここ で 終わ 
り と な る こと を 示す 区 切 文字 で す . 通常 」。 リ ンク ポイ ンタ が 入る べべ き 場 所 で す が , 
ここ に , 次 の 行 の 始ま る 番地 の 代わ り に $ 0 0 0 0 が 入っ て いる こと を 発見 する 
と ,。 イン タプ ブリ タ は , | プログ ラム は ここ で 終り 」 と 判断 する わけ で す . (FM 一 
7 で は , テキ スト エリ ア に か ぎら ず 。 リ ンク ポイ ンダ タタ 方 式 が 好 ん で 用 いら れ て い 
ます が , この 技法 。 すなわち 「$ 0 0 な いし , $ 0 0 0 0 が 特殊 な 意味 を 表す 」 
と いう やり方 が 必ず 採用 きれ て いる の で , 覚え て お いて 下さ い ). 

テキ スト エリ ア の 後に は 変数 エリ ア が 来る わけ で す が , この 変数 エリ ア が 始ま 
る 元 頭 番地 を 指す ポイ ンタ (3 5 : 3 6) は , 確か に , プロ グラ ム 終 了 の 区 切 文 
字 $ 0 0 0 0 が 書か れ て いる 次 の 番地 (上 の 例 で は $ 0 7 A6 番 地 ) を 指し て い 
る こと が わか り ま す . 
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TRITWRECtht も レ 1 レ 1 レ WW 上 ii% ョ ie 


2 一 2 変数 の 格納 形式 (単純 変数 お よび 配列 変数 ) 


単純 変数 エニ エリア, なら びに 配列 変数 エリ ア は , この 順に . テキ スト エリ ア の 後 
に 置か れ ま す . そし て , それ ぞ れ の エリ ア の 先頭 番地 を 指し て いる ボ ポイ ンタ が , 
図 (2 1 の に も 示し た よう に ,、 (953960) お よび (90B.)C) で ナ 。 テ 
キス ト の 後に 動 的 に 配置 され る 関係 上 , 電源 投入 時 ・ リ セッ ト (コー ルド スタ ー 
ト ) 時 ・ プ ログ ラム 入力 後 ・NEW コ マン ド 実 行 後 な ど で は , 単純 変数 エリ ア ・ 
配列 変数 エ リア と も に , その 大 き さ は 0 で あり , (3 5 : 3 6), (3B: 3C) 画 
ポイ ンタ の 値 は 。 フ リー エリ ア 先 頭 番地 (3D : 3E) の 値 に 等 し く な り ま す . 
テキ スト エリ ア ・ 単 純 変数 エリ ア ・ 配 列 変数 エリ ア の 三 者 が . ダイ ナミ ッ ク に 変 
化し て い ぃ いく 様子 を 示し た の が , 図 2・2・1 で す . 

変数 の 登録 ・ 参 照 は すべ て , $950F 番 地 か ら 始 まる , 一 連 の サブ ルー チン 
群 (我々 は ,。 この ルー チン を 「 変 数 サー チ 」 と 名 付け まし た ) に よっ て 行わ れ ま 
す . この 「 変 数 サー チ 」 の 節 は 第 3 凍 で 扱う た め , この 節 で は , 変数 の 格納 形式 
な どの 説明 を し ます . 


好 2・2・1 各 エ リア の 伸縮 の 様子 


生 源 投入 時 
コー ルド スタ ー ト 時 


I 
| 
l 
「 ヽ NEW コ マン ド 実 行 要 グ アグ 人 罰 
| 
| 


NN プロ グラ ヲ ム の 入力 


! 
| 
| 
| 
| 
| 


| 

| 

へ 、 プロ グラ ム の 実行 時 に お ける 
| いい 誕生 変数 の 登録 

人 CLEAR 文 の 実行 


I 
| 
[ N ERASE 文 に よる D IM 婦 な ど に よる 
[ 
' 


! 
ヽ 配列 の 一 部 消 二 配列 変数 の 登録 
! 
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2 一 2 一 1 単純 変数 の 格納 形式 


FI に 億 精度 実数 型 ・ 文 字 列 型 の 各 単 純 変 数 は , ワー クエ リ 
ア の ボ ポイ ンタ (35 : 36) が 指す 値 を 先頭 番地 と する 単純 変数 エリ ア に , 登録 
he ー つ の 単純 変数 を 格納 する の 
に 妥 す る メモ リ 人 容量 は , 変数 名 の 長 さ と 変数 型 の 2 つの 要因 に よっ て 決定 され ま 
す が , この 格納 の 形式 を 示し た の が 図 2・2・2 で す . 


凶 2・2・2 
名 標 部 本 体 


= FTuT | 
議 史 子 …… 補 数 弄 | nー | 
ーーーーーーーーーーーーー ーーーーーーーーーーーーー… 


上 位 4 ビ ッ ト 下位 4 ビット 


主 な 構造 を 説明 し ます . 
ます 識別 子 で す が , 変数 型 を 指示 する 上 位 4 ビッ ト と , 変数 名 部 の 長 さ マイ ナス 
1 の 値 を と る 1 6 進数 が 入る 下位 4 ビッ ト か ら め 成 り 立 ち ま す . 上 位 4 ビッ ト に は , 


ee ゅ ぶ 2 僅 精 上 実 数 …… $ 8 
唱 征 度 実数 坦 ……… $ 4 文字 列 穫 … の et $ 3 


人 者 N この 2, 4, 8, 3 の 四 つ の 指標 は , FAC 1 内 の 
ー タ 型 を 表す ワー クレ ジス タ ($ 1 7 番地 ) に 格納 され る 値 で も あり ます . ま 
本 は 同時 に , 各 型 の 変数 の デー タ 部 の 長 さ を も 示し て いま す ( 実 
は , 2, 4。 8, 3 の 四 つ の 指 様 は , 変数 の デー タ 部 に 愛す る バイ ト 数 に 合わ せ 
て 作ら れ た も の な の で す ). 
下位 4 ビッ ト の 方 は , 変数 名 部 の 長き が 1 一 1 6 バイ ト で すか ら “, それ に 応じ 
て , $0 一 $F の 値 が 格納 され ます (※ 「 ド エーBASIC 文 法 書 ] に が し て ある 
よう に , ブログ ラム の 側 で いく ら 長 い 変 数 名 を 用 いて あっ て も , 実際 に 変数 エリ 
ア 内 に 登録 きれ る の は 頭 か ら 1 6 文字 まで で す . この , 変数 名 の 中 途 切 捨 も すべ 
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上 Ei 


て 変数 サー チル ー チ ン で 行わ れ ま す ). 
この よう な 議 別 子 を わざ わざ 置い て お く 必 然 性 に つい て は , 以下 に 順 を 追っ て 

説明 する こと に し ます . 

(1) 0 
だ ける で し ょ う . 各 変 数 型 が 混ざり 合っ て エリ ア 内 に 列 され る 方 式 を 採っ て 
ぃ いる 以上 , この 指示 子 が な れ け ば , 後に 続く デー タ が 何 の デ ー タ で ある の か 人 不 
明 と な り , 変数 情報 が 死ん で し まう か ら で す . し か し , 各 変 数 型 に 個別 の エリ 
ア を 設け る 方 式 で は , それ だ け ポ イン タ の 数 が 増え て し まい , 管理 が 複雑 化す 
る だ け で 実用 的 で は あり ませ ん . 

(2) 変数 サー チ ・ 登 録 を 行う 側 に し て みれ ば ,「 で きる だ け 速 や か に 変数 の ピッ ク 
アッ プ や 移動 を 済ま せる よう な 構造 で あっ て ほし い 」 と いう 要請 が ある こと で 
す . これ まで の 説明 か ら わ か る よう に , 変数 エリ ア と いう の は 不定 長 デ ジー タ の 
集合 体 で す (サー チ を 行う 側 か ら 見 れ ば , エリ ア 内 に 固定 長 デ ジー タ が 並ん で い 
だ だ 放 が 行い や すい わけ で す が 。、 それ で は 。 ほ と ん と の デー ク で NUE 上 TI (50 
0) や 空 申 ($ 2 0) な どの 余分 な 文字 を 間 に 補 うこ と と な り , メモ リ 効 率 が 
極 六 に 吉 化 し ます ). その た め , 不 必要 な デー タ は な る べく 飛ば し 読み する 部 分 
を 多く する 工夫 が 必要 と な り , 識別 子 は 飛ば し 読み を 行う 上 で 2 つの 働き を 持 
ち ま す . 
いい ) 提 し て いる 変数 の 基 別 子 と 比較 する こと に より , 変数 型 か 変数 名 の 長き が 

玩 な っ て いる 場合 に は , 読み 飛ば し を 行い , 次 の 場所 を 捜す よう に し ます . 
(ii ) 寺 別 子 の 上 位 4 ビット は 変数 の 名 標 部 の 大 き さ を , 下位 4 ビッ ト は デー タ 
部 の 長 さ を それ ぞ れ 示し , 両者 の 和 プ ラス 2 と いう 値 を 計算 する こと に よ 
っ て , その 変数 が エリ ア 内 に 占め る 大 きき さ (バイ ト 数 ) を 導く こと が で き 
ます . この 値 は 同時 に , 読み 飛ば し の 幅 で も あり ます . 
この うち , (ii) の 働き は , ルッ ク ・ ア ヘッ ド と いう 方 式 で あり , 例え ば ,| V 

ARIABLE| お よび [VARIABLE2」 と いう 2 つの 変数 が 登録 され て 

いる 場合 に 。 YVARIABLE『Y ま で 比較 し た 後 , 次 の 文字 "2 Y を 見 て 初め 

て 両者 の 識 別 が で きる と いう の で は , 非 能率 で あり , 毎 回 この よう な 無駄 を する こ 

と を 避け る た め ,。 あら か じ め 変 数 名 の 長 さ の 比較 で 分 類 し て いま す . また , (ii) 

の 方 は , 変数 エリ ア 内 に お ける リン ク ポ イン タ の 一 種 と いう こと が で きま す . 
変数 名 部 に は , 変数 名 を 構成 する 廊 字 列 が アス キー コー ド で 格納 され ます . 

識別 子 の 項 で 述べ た よう に, 変数 名 部 の 大 き さ は 1 一 1 6 バイ ト の 範囲 内 と な り 

ます . 変数 名 の 規則 と 早 合 すれ ば , この 場所 に は 英 大 文字 か 数 字 の コー ド し か 入 

ら な いこ と に な っ て いま す が (「F ド ーBAS 1IC 文 法 書 」 参照: な お , 英 小文字 
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は テキ スト 作成 ルー チン 内 で 大 文字 に 変換 され ます ) , し ば し ば この 規則 か ら 外 
れ た 文字 コー ド で 始ま る 変数 名 が 格納 され る こと も あり ます . これ は DEF_.F 
N 文 (FN 関数 定義 文 ) 中 の 関数 名 を 単純 変数 エリ ア 内 に 登録 する 際 , 一 般 の 変 
釣 狂 と 区 別 す る 目的 で 最初 の 一 文字 に $ 8 0 を 加え る と いう 操作 を 行う こと か ら 
こる 現象 で す . 

最 俊 に , デー タ 部 (変数 本 体 ) に つい て 説明 し ます . 次 頁 の 図 2・2・ 3 に. 
変数 名 が YABCDY で ある と し た 場合 の , の と 本 ( け ま す . 

この うち 整数 型 は 。FAC の 2 バイ ト が その まま 格納 され る だ け で , 特に 問題 
あり ませ ん . 

単 精度 実数 ・ 倍 精度 実数 の 各 数 値 型 の 格納 形式 を 御覧 下さ い . F AC で は 符号 
癌 は 独立 し た 1 バイ ト を 占め , 仮数 部 最上 位 バ イト 中 の MS B は 常に 1 に な っ て 
年 入 導入 も の 橋 林 は 地軸 纏 MM 洛 の 6 
ト 中 の MSB に 圧縮 され た 形 で 格納 され て お り , FAC に お ける 形式 と 異な っ て 
いま す の で 注意 を 妥 し ます . この た め , FAC 1 の デー タ を 変数 型 に 直し て 格納 
する ルー チン |[$B3 3 7 番地 か ら 」], お よび , 変数 型 の デー タ を FEAC1( 
人 用 斉 さ れ て いま す . 


父 字 列 型 の 電 合 , 数 値 型 の よう に 容易 に は いき ませ ん . 文字 列 型 変 角 に つい て 
理解 する た め に は ,。 イン タブ リタ 内 部 で 文字 列 が どの 様 に 扱わ れ て いる か に つい 


て 触れ て お く 必 要 が あり ます . 

まず , 文字 列 デ ー タ が 他 の 数 値 デ ー タ と 異な る 点 に 注目 する と , 数 値 デ ー タ に 
関し て は , 整数 型 が 2 バイ ト , 単 精度 型 で は 4 バイ ト と いう 具合 に 長き が 決ま っ 
て いる 「 固 定 長 」 で ある の に 対し , 文字 列 デ ー タ は 長 さ が 決ま っ て いな い , 即ち 
可変 長 」 で ある と いう こと が 見 えて きま す . 例え ば , デー タ が 女 字 列 YAY で 
あれ ば , デー タ の 長 さ は 1 バイ ト で ある の に 対し ,. デー タ が YABCDE『Y で あ 
れ ば , 長 さ は 5 バイト と いう こと に な り ま す . この よう に , デー タ 長 が 変動 する 
こと に よっ て , 廊 字 列 デ ー タ の 取扱 い は 非常 に 複雑 な も の と な り , 様々 な 技法 が 
必要 に な る わけ で す . 

紹 の な め 凶 2・2・4 の (1) を 御覧 下さ い . 図 中 の 変 で 数 は すべ て 整数 
と し , 変数 B の 内 容 を , 現在 の $0 43D か ら $O0 3 3 C に 書換 える 必要 が 起き 

し ます . この と き , 現在 の デー タ $ 0 4 3 D と , 書換 用 デー タ $ 0 3 3C の 

長 さ は 共に 2 バイ ト で すか ら , 単に $033C を $043D の あっ た 場所 に 置く 
だ け で 十分 で す . 単 精度 型 や 倍 精 度 型 で も 同様 で す . 

と ころ が , 可変 長 デ ー タ を 扱う 文字 列 型 で は , 先程 と は 様子 が 異な っ て きま す . 
既存 デー タ と 更新 デー タ の 長き さ が 常 に 等 し けれ ば ば, 数 値 型 の デー タ と 同じ で , ま っ た 
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1) 整数 弄 


各 型 の 単純 変数 の 格納 形式 


(2) 単 精 衣 


ます = 
に 


FPPTTTTFTT 半 シ シ シ シ シ シ シ シ シ シ シ シ シ シ シ シ ーー51 543 lOoonoonnr 識別 子 
ー 』 YA すず ON 演 
ー 3 日 Y YBY 
< 巣 な 4 立 に 恋 此 夕 吉 
ー っ YCy 変数 名 部 YCr 多 名 ) 
] 画 1 ) 軍 画 | ) 画 
実効 番地 
ーー ' 
十 ] 『7, が 叶 ) 仮 デー タ 了 
34 
幸信 
1J 
衣 図 中 の 中 は 、 整 数 型 ・ 単 精度 実数 型 ・ 倍 精度 実数 思 の 仮数 部 の MS B 
で あり 、 仮 数 部 の 符号 が 格納 さき れる. 仮数 部 が 止 の 数 な ら は この ビッ 
ト は 0 (クリ ア ) と な り 。 負 の 数 で あれ ば 。 1 (セッ ト ) と な る 。. 
3) 倍 精度 突 数 弄 (4) 文字 多 型 
議 や $ 33 jm Rh 時 
YAY 
し 着 
数 名 部 ・ こ て (全数 名 部 
YDY 


デー タ 部 


アー ダ 如 


RE | 
か か の リア ダ 


こ の 図 に お ける 変数 の 変数 名 は すべ 
YABCD "で ある と する . 


パパ 


竣 こ の 団 に お ける 実効 番地 と は 、 YVA 
RPTR(ABCD)" で 示さ れる 番地 
の こと を 指す . 
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< 間 題 は 起こ り ま せん が , せっ か く 〈 用 意 さ れ た 文字 列 型 が 常に 同じ 多 字 数 の デー 
タ し か 扱え な い の で は 面白く あり ませ ん . 可変 長 デ ー タ を 目 由 に 取 抜 うこ と が で 
きる 点 こ そ 。 イ ンタ プリ タ 型 言語 た る BASTC の 特長 の 一 つ な の で す (コン パ 
イラ 言語 を 使っ て いる 際 , 子 め 定義 きれ た 文字 数 の 文字 列 デ ー タ し か 扱え すず, 1 
ライ ラ す る こと も あり ます 。. 配列 宣 詩 に お いて , DIM_JA(2※X 十 B 一 5) な 
ど と いっ だ た こと が 許さ れる と いう BASTC な ら で は の 融通 性 が , 廊 字 列 処 理 に 
お いて も 妥 求 され て いま す ). 

例え ば , 変数 B 内 の 既存 デー タ "AY に 対し , 更新 デー タ YABCDEY を 書 
人 タ を 朋 の デー タマ AY の あっ た 場所 に その まま 押し 
込め ば ,。 次 の デー タ で ある 変数 C が 破壊 きれ て し まい ます . で すか ら , 子 め 変数 
CC 以降 の デー タ を 後方 に 4 バイ トト 分 ずら し て か ら , 更新 デー タ YABCDE『Y を 
きき 込む 必要 が あり ます ( 図 (2) 一 i お よび (2) - 呈 参照 ) . 同様 に , 更新 
デー タ が 既存 デー タ よ り 短 い 場 合 で も , 変数 C 以 降 の デー タ 和 群 を あら か じ め 前 方 
に ずら し て お か な いと , B と C の 間 に 空 白地 癌 が 生じ , cPSP 生 し まい ます . 

前 後に デー タ 全体 を ずら すこ の よう みな 方 法 は , 相当 に 手間 の か か る 作業 を 要 し 

ます . そし て , 廊 字 列 変数 を 何 十 個 、 何 百 個 と 使 有 還 還 還 還 に お ゆで は , 
か な り の 時 間 を この 操作 どけ で 消費 する こと に な り ま す . 例え ば , BASIC 
スク リー ン エ ディ タ で は この 方 式 が 採用 きれ て お り ま す が (次 の 招 の テキ スト 作 
成 の 項 で 説明 し ます ). 巨大 な プロ グラ ム の 中 に 十 行 程度 の 修正 を 加え た 場合 。 何 
秒 あ る い は 何 十 秒 も の 間 , 画面 表 赤 が 休止 し て し まう こと も 稀 で は あり ませ ん . 
エディ タ な ら ば , それ 程 の 高速 性 は な く と も 十分 で す が , 頻繁 に 使用 きれ る 文字 
列 型 変数 に お いて は この よう な 低 効 率 な 作業 で は と て も 間に合わ な い の で す . 

まず 思い 浮か ぶ 方 法 と し て は , 文字 列 変数 の 長 さ を 一 律 2 5 5 文字 な ら 255 
信 字 と 定め て お け ば , 手軽 に 能率 を 上 げ る こと が で きま す が , - の 方 法 は 識別 ] 「 
の と ころ で も 述べ た よう に , メモ リ の 使用 効率 が 基 し く 低 下 し て し まい , た か だ 
か パソ コン の 記憶 装置 で は , 変数 の 登録 数 は いく ら も 増やせ ませ ん . そこ で , 多 
KR Rf に 格納 する 右 域 (文字 列 
スタ ッ ク エ リア ) を 別に 設け , さら に 変数 名 と 実際 の デー タ と を 結合 (リン ク ) 
する た め の ポ イン タ を 作っ て 。 間 楼 的 に こ デ ー タ を 参照 する と いう 方 式 間接 
表現 法 一 一 が 採用 きれ て いる , と いう わけ で す . この 方 式 で す と , 変数 名 の あ 
と に は 2 バイ ト の ポイ ンタ を 入れ て お け ば よく , デー タ の 書き 換え は 。 スタ ッ ク 
の 最後 尾 に 更新 用 の 文字 列 デ ー タ を 付け 加え て ボイン タ を その 最後 尾 を 指し 示す 
値 に 書き 換え る だ け で 済ん で し まい ます . 例え ば, 変数 B の 内 容 を YAY か ら YA 
BCDEY に 書き 換え る 場合 に は , 図 (3)- ュ ii の よう に ポイ ンタ を 書き 換え れ ば 


5)| 


整数 型 で は 


(3)- i. 間接 表現 の 採用 


賜 新 デー タ 


鹿 2・2・4 文字 列 処 理 の 様子 


(2) 一 ji. (②ーji. デー タ 移動 に よる 更新 


デー タグ の 衝 突 


A 
ふり U 3 A 
3C C 
C 
0 D 
上 E 


※A= ニ "FM 一 7".、B=“"A"、C="SHUWA" の 状態 で B=“ABCDE" に 更新 し よう と する に は . 
あら か じ め , C 以 降 を 4 バイ ト ずつ 後方 に ずら し て , 搭 納 ス ペー ス を 作っ て お か な けれ ば な ら な い . 
(3)- ii. ボイン タ 鞭 換え に よる 更新 3③ー-i. 夫 際 の マシ ン で は 
(上 上 位 ア ドレ ス の 方 向 へ ) 
F | 数 A 1 
中 ポイ ンタ 志 
フ < 鞭 詳 リ 
| が 
時 
A 
S | ポイ ンタ B 
H C 
U D 
| 変数 C E 
ポイ ンタ 


中 け () 功 ち 


es > = 愛工 の 


(コニーH mwB) 


ゝ 


婦 学 外 ス タッ クエ リア の 
j 下位 アド レス 


り 1 


ょ よい の で す . ボイン タ な ら ば デー タ 長 は 決ま っ て いま すし , 文字 列 ス タッ ク 上 の 
古い デー タ YAY は 「 コ ミ 」 と し て その まま に し て お け ば よい の で , その 都度 デ 
ー タ を ずら し た りす る 必要 は な く な り , 飛躍 的 に 能率 が 向上 し ます . 
実際 の マシ ン で は , 他 の エリ ア と の 兼ね 合い か ら , 図 (3 ) 一 品 の よう に , 下位 
の アド レス か ら 上 上位 の アド レス の 方 向 へ 、 すなわち ハー ドウ ェ ア ・ ス タッ ク と 同 
じ 方 向 に 文字 列 デ ー タ が 埋め られ て いき ます . また , 使用 中 の エリ ア と 未 使用 ェ 
リア と を 分 此 す る た め の ス タッ クボ ポイ ンタ (文字 列 ス タッ クエ リア の スタ ッ ク ボ 
イン タタ, すなわち String Stack Pointer で すか ら , 以後 SSP と 員 し ます ) か が 必 
要 と な り , FM 一 7 では, ワー クレ ジス タ (4 1 : 4 2) が SSP の 役目 を 果 た 
し て いま す . 変数 エニ リア 側 で も , ポイ ンタ だ け で は スタ ッ ク 上 で 自分 の デー タ が 
本 本 いい ので , ポイ ンタ に 加え て 文字 列 の 長 さ (文字 数 ) を 格納 
する レジ スタ が 必要 で あり , 両者 を 合わ せ た 3 バイ ト が スト リン グ デ ィ ス クリ プ 


タ (以後 、 SD と 略す こと も ある ) と 呼ば れ ま す . 以上 まとめ る と , 廊 字 列 型 変 
数 の 参照 は , 変数 サー チ ・SD 読 み 込み ・ 文 字 列 スタ ッ ク 参 照 と いう 3 半 M 
CI224 も の SM こと に がり ます 、 

と ころ で 前 述 し た よう に , パソ コン の 記憶 容量 に は 限界 が あり , 文字 列 ス タッ 


クエ リア と し て 確保 で きる バイ ト 数 な ど は ,。 わずか な も の に すぎ ませ ん 。 文字 列 
の 書き 換え が 頻繁 に 行わ れる よう な プロ グラ ム に お いて は , 次 々 と 更新 が 行わ れ 
て いく 結 未 。 Me ア が 埋まっ て し まい ます が , この 中 に は 不要 と な っ た ! ゴ 
ミ 」 の 文字 列 が 相当 数 人 答 ま れ て お り ま す . この 際 放 っ て お いた 「 ゴ ミ 」 を 一 健 に 
拓 除 し て / + 付 け て や れ ば 再び , 空き エリ ア を 人 確保 し て 使用 可能 な 状態 に する こ 
と が で きま す . この 「 ゴ ミ 掃 除 」 の こと を 通常 . カ ベー ジコ レク ショ ン (garbage 
collection 一 ゴミ 集め 一 ) と 呼ん で お り , 文字 列 操作 に な 語 ) 度 た 技 ) よ の - の 
AO で 9 。 

この ガベージ コレ クシ ョ ン に は , ゴミ の 選別 と デー タ の 移動 , 並び に SD 内 の 
ポイ ンタ の 書換 えと いっ た 処理 過程 が 必要 で あり ,. ガベージ コレ クシ ョ ン が 始ま 
る と それ だ け で 相当 な 時 間 を 費 し て し まう こと に な り ま す . それ で も な お , 図 (2) 
の 方 式 に 比べ る と , 檜 段 に 効率 が 良い の で す . 

以上 の 説明 で 。 FMー 7 を は じ め 各 種 の マヤ イ コン の イン タブ リタ 内 で ,。 どの よ 
うな 形 で 文字 列 処理 が 行わ れる か に つい て の , 大 体 の イメ ー ジ を 掴ん で いた だ け 
た と 思い ます . な お , FM 7 で は ガベージ コレ クシ ョ ン の 効率 を 上 げ る た だ ため に . 
上 記 の シス テム に 加え て ,。 さら に 文字 列 ス タッ クエ リア 中 の 各 文 字 列 が どの SD 
の 指示 対象 と 時 MM 、 逆 向き の リン クボ ポイ ンタ が あり ます . す 

な わ ち 又 字 列 スタ ッ ク エ リア 内 に お ける 有効 な 文字 列 は , 図 2・2・5 の よう に . 
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巴 2・2・5 文字 列 ス タッ クエ リア 内 の リン クボ ポイ ンタ 


〕 数 エリ ア な と 信 字 列 ス タッ クエ リア 


を $abcd 番 地 
$efgh 番 地 叶 ] 
字 列 "FM 一 7" 文字 列 『FMー 7? の 
を 指す SD | ) 実体 部 分 
( 
リン クボ ポイ ンタ gh 
リン クボ ポインタ $00 ーー ゴミ 蔵 別 子 | ゴミ の 
el を 抄 ね る 文字 列 デ ー タ 
を $i」jkl 番 地 
$mnop 番 地 S 4 8(H) 
久 池 列 PSHUWAT 5 員 : 上 昌 ) 文字 列 “SHUWA "の 
を 指す SD S57(W) || 実体 部 分 
$4 1(A) 
※ 文 字 列 スタ ッ ク エ リア 上 の 文字 列 デ ー タ 


に 関し て は 。 5 の ポイ ンタ ダ タダ と エリ デ ト F ト 
の リン クボ ポイ ンタ と が 、 お い の 格納 先 
絹 秋 地 を 指し 合っ て いる . 


婦 学 列 ス タッ クエ リア 最上 位 ア ドレ 


半 
EEEE2TIEI 
i | 


| 
| 


Si 四 


$S 0 7 5F ド 番地 の 及 学長 10 バ イト の 
SD で 指 き れる 廊 子 列 ゴミ の 文字 列 


Immmsmi ” mmmmmm:)。 msmsh。)。 msh 。)。 ss ニニ ーーー 
E__ 商 還 | 還 半 症 還 。 . 清和 _ 還 生 _ 評 _ 邊 和 一 WEEEEEE 


EGOEETHOGEEZITI 
I I 


7 ペー ジコ レク ショ ン の 隊 に は 。 ゴ ミ で ある WWF 史 2 の 分 す な わ 
ちら リン クボ ポイ ンタ $000A (10) の バイ ト 数 プラ ス ?2 だ は け 文 
子 列 1 を 移動 し て ,。 委 列 2 を つぶ せ ば よい . 
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SD と 相互 に 対応 ブ プ け られ て いる の で す (文字 列 ス タッ クエ リア 外 の も の は 列 
で す ). そして, SD に 対応 ブ づけ られ て いな い 文 字 列 こそ が , 有効 で な い デ ー タ ー 
ーー すなわち ゴミ の デー タ で あり , この と き , リン クボ イン タ に は SD の 格納 番地 
の 代わ り に , ゴミ の 大 き さ (バイ ト 数 ) が 入る の で す . 廊 字 列 の 大 き さ は 0 一 2 
5 5 廊 字 の 範囲 一 一 1 6 進数 で いう と , $ 0 0 一 $F ド ーー に ある の で , リン ク 
ポイ ンタ の 上 位 バ イト は $ 0 0 となり , これ が , ゴミ で ある こと の 識別 子 を も 兼 
ね て いる の で す .。 この リン ク ポ イン タ の 導入 に よっ て 。 ゴミ の デー タ を 有効 な デ 
ー タ か ら 素 速く 見 分 ける こと が で きる よう に な り , し か も , デー タ の 移動 に 伴う 
SD の 書き 換え も リン クボ ポイ ンタ の アド レス を 読む こと に より スム ー ズ に 行う こと 
が で きる よう に な っ て いま す . この よう な 方 式 は , イン デック ス 修 飾 命 令 を 旦 冨 
に 備え た 6 8 0 9 CPU の 能力 を 最大 限 に 引き 出す も の で あり , か つ , 6 809 
な ら で は の 特長 で ある と いえ ます . 

以上 の よう な 構造 の 下 に , 廊 字 列 型 変数 の 場合 、 変数 ニ リ ア の 本 体 デ ー タ 部 に 
は , 3 バイ ト の スト リン グ デ ヂ ディスク リプ タ が 格納 され , 文字 列 本体 は 文字 列 ス タ 
ッ ク エ リア その 他 に 蓄え られ る わけ で す . な お , 「A$= ニ “ABCDE” 」 な ど 
の よう に 単純 な 女 字 列 定数 の 代入 廊 の 場合 ,、 イ ンタ ブリタ は 新た な 女 字 列 を 作ら 
ず 。 テキ スト エリ ア (プロ グラ ム ) 中 に 書か れ て いる 文字 列 の アド レス を SD に 
書き 込む だ け で 済ま せ て し まい ます ( 図 2・2・6 参照). 前述 し た よう な 。 ガ ベ 
ー ジ コレ クシ ョ ン を は じ め , 文字 列 ス タッ クエ リア に 文字 列 の 実 何 部 分 を 格納 す 
る こと に よっ て 生じ る 負担 を 考え れ ば , イン タプ リタ が この よう な 横着 を する 理 
由 も 納得 で きま す . 


図 2・2・6 イン タプ リタ の 横着 


AS ぉ ="ABCDE" $0790 番 地 / テ キス ト エ リア 
B$=A$ ! 中 | 
CS=AS 07.9F グ 00.0A グ 41A/ ノ 24 ノ 
D$=B$ トリ シン アク ) 1 0 人 行 A $ 
EK 6 プ 22/41.42.43.44.45 プ 22 ノー 
索 上 の よう な ブロ グラ ム を 実行 する と , ーー 叶 も M 選 " 


AS、B$,。 C$。 D$ の 人 各 変 数 の 


SD 中 の ポイ ンタ は 。 図 の よう に S0 798 番 地 


すべ て “ABCDEE” が 格納 され て 
変数 B 
ska 
| た き さ 


いる 先頭 番地 (お 0798) を 指す . 


り 4 


最後 に , 実例 と し て 
10 こ A 外 10:B! テ 12:C せ 14:D$ テ “ABCDE“ 

と いっ だ プログラム を 実行 きせ た 場合 に , 変数 が どの よう NN 
見 る こと に し ます . 格納 きれ て いる 数 値 の 読み 方 は , 符号 部 が 圧縮 され て いる 点 
を 除い て 。 FAC の 数 値 の 読み 方 と まっ た く 同 です. ただし. 標準 R OM モ ー 
ド (DISK, RS 一 2 3 2C な ど を 使用 し な い ) の 場合 を 想定 し た た め , テキ 
スト エリ ア 先 頭 番地 は , $ 07 90 と な り ま す . それ で は , 図 2・2・7 を 御 算 
下さ い . 


図 2・2・7 実例 に よる , 変数 の 格納 形式 の 様子 
ば ドド ぴ 
0033 : 0790 07B6 (テキ スト エリ アア 先頭 番地 . 変数 エリ ア 開 始 番 地 ) 


3B : 07CF 07CF . (配列 エリ ア 先 頭 番地 ,. フリ ー エ リア 開始 番地 ) 


0790 : 07B4 000AA (テキ スト リン ク ポ イン タ 。 行 番号 [1 01) 


794 : 41 25 E6 FE0O10A 3A YEE0O1Y は デ 

(A 多 = 。 10[1 バ イト 定数 表記 ] :) | 1 バイ ト の 定数 表記 | | キ 
79B : 42 21 EE6 FEO10C 34A で ある こと を 示す ス 

に 光明 12 。  : ) 中間 言語 で す . し ト 
7 上 2 1 3 23 EE6 EEO10E 3A 工 

(C 。 キー テー ーー 14 ) リ 
7A9 {14 24 E6 22 4T.42.43.44.45 22 00 ア 

( D $ ー AA  B じ C DU ” NULL( 行 の 終り ) 
7B4 : 00 00 和 

フロ グラ ム の 終り を 表す  $O7AD 番 地 

の グイ ジグ 1 
7B6 : 20 41 00 0A ee 

(識別 子 YA" 整数 型 の Y1 0") ( 
7B 上 AA 40 4 2 6 』 引 0 0 0 り 0 [ | \ 山 

(識別 子 YBY 23※*0.1 100…… 仮数 部 の 符号 は プラ ス ) い 変 
7CO0 : 80 43 84 60 00 00 00 00 00 00 1 34 

(識別 子 *CY 23*0.1 110… 仮数 部 の 待 写 は プラ ス ) | ェ 
7CA : 30 44 05 07 AD リ 

YY 上 目 記 ! デア 
上 テキ スト 中 の $ も 07AD 番 地 。  。 。 。  」j 
5 婦 字 の (人 女 字 列 マ YABCDE Y の 区 表 ) 
多 字 列 を 「 す ポイ ンタ 


うつ / グ の プー ィ ォ ス ダグ ダ 四 ダダ (人 5 思 ) 


り ひ 


2 一 2 一 2 配列 変数 の 格納 形式 


配列 は 。 同じ 型 の デー タ が 並ん だ 一 種 の 構造 体 で すか ら , 数 値 の 格納 に は 癌 十 
の 工夫 が 必要 に な り ま す が , 単純 変数 の 格納 形式 が よく 理解 で き て いれ ば , 難し 
いこ と は あり ませ ん . 図 2・2・8 に 配列 変数 の 格納 形式 を 示し ます 


図 2・2・8 配列 変数 の 格納 形式 


③ の 「 リ ンク 」 が 表す バイ ト 数 


チ | 放 数 名 6 "テー タロ 
1 ウ ] デー ] に 三 = ニ = ーー 


語 2 の ) ー 5 が 送 数 部 ⑥ デ ー タ 部 
バイ ト 数 
配列 変数 ・ 名 様 部 配列 変数 ・ 本 体 


し 以降 に 各部 の 説明 を し て いく こと に し ます . 

。① の 識別 子 と の の 変 数 各部 に つい て は , 単純 変数 と まっ た く 同 じ で す . 

MPN は , 自分 自身 を 含む 。 以後 の 使用 バイ ト 数 が 入り ます . 
これ は , 変数 サー チ の 際 の , 読み 飛ば し の スピ ー ド を 上 げ る た め の も の で あり , 
変数 名 部 (②) の 次 の アド レス に , この リン ク の 値 を 加え れ ば , 次 の 変数 の 先頭 
アド レス が 計算 され る 訳 で す . 

《④ に は , 配列 の 次 元 (2 バイ ト で 表現 きれ る ) が 格納 され ます . 配列 の 次 元 と 
いう の は 添字 の 個数 で あり , 例え ば , 配列 A (n ) の 次 元 は 1, A (m, n) で 
は 。 A (1T。 生 。 、 1) で は 4 と な りき ます 。 

⑤ の 次 数 部 に は , 各 次 元 に 対す る 次 数 が それ ぞ れ 格納 され ます . ここ で デ "* 次 
数 と は , 添字 の 最大 値 プ ラス 1 の こと で あり , 例え ば , 配列 の 次 元 が 1 で あっ た 
場合 に は 配列 の 全 要 素数 に 一 致す る 値 で す . 本 書 が , 次 数 と いう 紛らわしい 表現 
を あえ て 使用 する の は , 配列 の 添字 が 0 か ら 始 まる た め に ⑤ に は D 1 M 娘 で 富 言 
する 添字 最大 値 そ の も の で は な く , 添字 最大 値 プ ラス 1 が 格納 され る た め , 添字 
最大 値 と いう 表現 が 使用 で き な い こと ( Ab 
配列 の 添字 最大 値 プ ラス 1 の こと を 示し ます の で 注意 し て 下さ い . な お , 配列 の 
全 要 素数 は , 次 数 部 に 格納 され た 全 次 数 の 積 で 計 覚 され ます . 

0 配列 の 全 要 素 の 集合 体 で す . 整数 型 で あれ ば 2 バイ ト ず つ , 

度 実数 型 の 場合 に は 8 バイ ト ず つ 区 切ら れ て 格納 され て いき ます し , 文字 列 

た な ら 。 3 バイ ト の SD( ス トリ ング ディ スク リプ タ ) が 各 有 要素 の 値 と な る 
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わけ で す . ここ で 注意 し な けれ ば な ら な い の は , 各 要 素 が 格納 され る 順序 で す . 
例え ば YDIMLJA (3。 2)Y で 宣言 され た 配列 で あれ ば , 
AKO。 00 AM。 00 AI(2。 0) リ AA (9。 0 
内 (0。 1)。 (上 。 1) AA (2。 上 ま ) 和 A18。 1) 


の 順序 で 格納 され る の で あっ て , 決し て , A (0,.0), A (0.1) …… と 
いう 順 詳 に は な り ま せん . この 点 は , 我々 の 日 常 感覚 と 異な っ て いる 部 分 な の で 


大 い に 気 を つけ て 下さ い . 同じ こと は 。⑤ の 次 数 部 に つい て も いえ ます . 

な お , ①ー⑤ の 部 分 を 合わ せ て 名 標 部 、 の デー タ 部 の こと を 本 体 と 呼ぶ こと 
に に ます 

を で は 。、 実際 の ブロ グラ ム で 見 る こと に し きす. 次 の よ リ を な アロ グン シム を 夫 
行 さ せ て 下さ い 、。 


0._DTMLAA グ の (98。 2) 
0_FORLLT テ 0 TOL.3 

0 こ .」F ド ORO すす テニ 0 し TO_」2 

0 ここ に ょ 人 和 A 多 (IT, J) ニ I※ ま 256 十 J 
ie eulM RE 人 上 

6 0_JNEXT 


中 も [トウ う 


この 後 , PR INTLU JHEX$ (VARPTR (A 錠 (0, 0) ) ) や MON/ 
D0 0 3 B な どの 操作 に よっ て 配列 の 位置 を 調べ て , スク リー ン に ダン プ さ せ て 
みる と , 配列 変数 の 構造 を 観察 する こと が で きま す . その 様子 を わか りや すく 指 
き 直 し た の が , 次 貞 の 図 2・2・9 で す . 


ここ まで の 説明 で , 変数 の 構造 に つい て , お よそ の イメ ー ジ を 掴ん で いた だ け 


だ か と 思い ます 。 さて ,。 いよ いよ , BASIC 中 間 言 語 の 作成 と 解読 ・ 実 行 に 
つい て 説明 する こと に し ます . 
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刻 2・2・9 配列 変数 格納 の 実例 (2 の 1 ) 


リン クボ ポイ ンタ 
1 計上: 放 ! 林 07A2 000 貞 8420 引 129 28 FEO01032C ま FEO102 2 9 0 0 
ee ae se 馬 和 ee 
10 こ 」 DIM A 錠 ( 3 2 ) NULL 
U 導 抽 党 0 7 B』 0 0 1 8G 1 2 と 0 は 9EE6 よ ド E010U0020 CD 20 が FEO1O3 0 【 
| el | 
07B4: 1 半纏 す 生 。 001E 208120 4AE6EFEO10020CD20 FEO102 0 0 
| sl 
30ー。 FOR J 三 0 ーー TO ーー 2 
Se 07UDE OO 


〆 0 2020412528492 じ 4AZ9E649DBFE0O20100D94A0OO 
as 


peowrm ず 得 た こと 学 【 rl 山 拉 2 三 上 まま yy 才 pg2 計 | 


U07 届 拉 :- 00755 00893》2 20 #2 0 0 


pet が 5 0 こし 」 し ー」 NEXT 


07 ル 5 : 和 H 取 桂 。 も ば U- 0 
5 0、. NEXT 


0033: 0790 (テキ スト 先頭 ) 久作 記 閑 当 


0035: 07ED (単純 変数 エリ ア ) グロ ググ ム ログ マム SS 07 色 
003B: 07ED (配列 変数 エリ ア ) 実 行 前 実行 後 |3B: 07F9 


003DU: 07ED( フ リー エリ アス ター ト ) 3D: 081 人 AA 
宮 単純 変数 エリ ア (実行 後 ) 

07ED : 10 4149 83000000 に oooererrrti 提 精 度 型 変 数 Y1 マ Y ( 値 ほ は 4 に な っ て いる ) 

7F ド 3 : 40 4 上 A 824100000 に に oeーーー / Y』 マ (7: 3 リ ) 


pa 環 
= 


配列 変数 エリ ア (実行 後 ) 
DIM A 守 ( 3 , 2 ) 


AMErirmrrmrrrrnrrihmrrmnrmirrrrmrrrri 0 SEELE 


秋 A 錠 (0.0) AG.0) AG2.0) 80080 A る (3。2) 
川 X WINZ03NIRHNSSSE 計 2 
の 2 みみ 火 次 雪 作 数 部 
デー ダグ 者 
(本 体 ) 


VARPTR (A 劣 (0。 0)) で ぶさ れる 番地 
[ この 例 で は  $0802 番 地 と な る ] 


り S 


図 2・2・9 


交配 列 変数 エリ ア (実行 後 ) 
VARPIKR( ) 全 還 の 例 に 
を 共 准 と する お ける 
相対 アド レス 絶対 アド レス 


_ 9 すす ーッ 
ー 8 [$07FA] … 
ー 7 [$807FB| 一 
ー 5 [$07FD] 
ー 4 |$07EFEl| 一 
ー 2 [|$0800| つ 


VARPTR(A%(0,0)) [$08021] 一 


で 示さ れる 番地 
填 2 [$0804] 一 
填 4 [$0806] 一 
寺 6 [$0808] … 
十 8 「S080Al 
填 1 0 CI 年 
ぁみ SG816] ーッ 
十 2 2 「S0818| 一 


配列 変数 格納 の 実例 (2 の 2 ) 


0 


Z 


数 型 変数 で , 変数 名 
の ECEECEPEETYYY RhD 川 語 了 | 
の 長き さき が (0 二 1) バ イト 
] OCTLKES で ES に 人 ・ 和 』 
以後 の 使用 バイ ト 数 が 
1 ド の NN 
3 で ある こと を 示す 
RT 2 
| で Una : 後 の 方 の 添字 * 2Y に 対す る 次 数 災 
を 
0 4 で の tn 前 の 方 の 添字 Y 3Y に 対す る 次 数 7 部 
0 0 … で "eo A 学 (0 0) の 値 
ee の ン の ) 値 
0 0 A(1。 0) 條 A%(※。 0) 
0 0 の (の 上 條 劣 (2。 0) め 
0 0 … の 2 の しま 。 の ) 7 
い 
() 1 ・…・…… AA の ( 1 ) リリ 
| A%(、1) 
() 1] ・・…・… A め 入 。 ] ) ア 
" | 
| 
= | 
= I 
1 | 
! ( 
し A(※。 2 ) 
0 2 ………… A の (2 2) の 値 
0 2 ee 上 AA 学 (3。 2) み / 


りり 


2 クー3 BASIC メ イン ルー チン 
ーーBAS |1C テ キス ト の 作成 と 解読 ・ 実 行 一 一 

2 一 3 一 1 BASIC メ イン ルー チン の 構造 

BASIC メ イン ルー チン は 。 次 の 3 つの 部 分 に 大 きく 分 か れ ま す . 


プロ ンプ ト 表 示 部 (88E63ー$8E87) 


テキ スト 作成 部 二 -- テ キス ト 作 成 ル ー チ ン  ($8E88-ー$8F1B) 
| 解読 ・ 実 行 部 一 一 一 一 解読 ・ 実 行 ル ー チ ン ($C63D-ー$C6EC) 


この うち , プロ ンプ ト 表 示 部 は ,。 コー ルド スタ ー ト , ホッ トス ター ト な どの メ 
イン ルー チン ・ エ ント リ で あり 。 コー ルド スタ ー ト 時 ・ ホ ッ ト ス ター ト 時 ・ ブ プレ 
ー ク キー 入力 時 ・E ND 文 実行 な ど プ ログ ラム 実行 終了 時 ・STOP 文 実行 時 ・ 
ェ エ ラー 発生 時 な ど 。 すべて プロ ンプ ト 表 示 部 を と お し て メイ ン ル ー チ ナン に 入り ま 
す . コー ルド スタ ー ト 時 や ブロ グラ ム 終 了 時 な ど で は , $ 8E7 2 番地 が エン ト 
リ ・ ボ ポイ ント と な り , 「Ready」 出力 の み を 行う の に 対し .。 ホッ トス ター ト や フロ 
グラ ム 中 断 時 (プレ ー ク や エラ ー 発 生 時 は ほか) で は , $ 8E6 3 番地 が エン トリ ・ 
ボ ポイ ント と な り , 「Ready」 出 力 に 先立っ て , 「Break」「Abort」「 Error」 「Brea 
k__In_, ( 行 番号 )」「Abort__In_」 ( 行 番号 )」「Error__.In_. ( 行 番号 )」 の いずれ 
か が , 中 断 時 の 状況 に 応じ て 表示 きれ ます . 

テキ スト 作成 部 は 、 フ ブロ ンプ ト 表 示 部 と 一 つなが り に な っ て いる の で す が 。 一 
応 。 一 つの 独立 し た ルー チン と し て 扱い ます . テキ スト 作成 ルー チン は , 独立 し 
た 形 の $C288 番 地 以 下 の 一 行 翻訳 ルー チン を , サブ ルー チン の 形 で 含ん で お 
り ま す が 。 一 行 久 訳 ルー ナン が 単独 で 使わ れる の は 特殊 な 例 を 除い て 極め て 枚 で 
す の で , 両者 を 別々 の も の と し て は 扱い ませ ん . な お , この テキ スト 作成 ルー チ 
ン は , キー ボー ド 入 力 は も ちろ ん の こと ,。 LOAD・MERGE・CHAIN な 
ど に よる , アス キー セー ブ さ れ た プロ グラ ム の 読込 み に も 用 いら れ ま す . 

解読 ・ 突 行 部 は 各 コ マン ド の 処理 系 へ 分 岐 する 部 分 を サブ ルー チン の 形 で 内 
名 し て いま す が , この こと は 言い 換え れ ば , 各 コ マン ド の 処理 系 は すべ て 解読 ・ 
夫 全 ルー ザ プン の サフ ルー チン の 一 部 も な っ て いる 。 と ゆい うこ と で ず 。 全 っ で て 。 
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各 コ マン ド 処 理 ル ー チ ン の 最後 は , スタック 内 に ネス ティ ング 用 デー タ を 残し て 
する FORーNEX 丁 文 ・WHILE-ーWEND 文 ・GOSUB 廊 を 除け 
ば 。 RTS (リタ ー ン ) 命令 で 終わ っ て いま す (見 か け 上 6 が つて 
いな いも の で あっ て も , RTS 命 令 を 含む 部 分 に 分 岐 す る な 実質 上 の RTS 
命令 を 含ん で いる こと に な り ま す . も ちろ ん , エラ フー 還 中 し た 場合 や 。 以下 に 
述べ る よう な ダイ レク ト 実 行 用 の コマ ンド や ブ プログ ラム 実行 を 信 止 させ る コマ ン 
ド の 処理 ルー チン に つい て は この か ぎり で は あり ませ ん . 
メイ ン ル ー チ ナン の 3 つの 部 分 の 関係 を 図示 し た の が , 図 2・3・ 1 で す . ブロ 
ンプ ト 表 示 部 か ら は , 必ず , その まま テキ スト 作成 ルー PH に コン < 
ト 作成 ルー チン が 一 行 翻訳 に よっ て テキ スト バッ ファ まで 作成 する 段階 で 。 行 の 
先頭 に 行 番号 が な けれ ば , ダイ レク ト 実 行文 と みな し て 翻訳 の の ち 解 読 ・ 実 行 ル 
ー チ ン に 分 岐 し , 行 番号 付き な ら , テキ スト 中 の 格納 位置 を 計算 し て その 行 を 畠 
入 し た の ち , 再び , テキ スト 作成 ルー チン の 先頭 に 戻り ます 解読 ・ 実 行 ル ー チ 
ン は , 各 処 理系 へ 分 岐 する 基地 と な っ て いて , 中 間 言 語 を 解読 し て 分 岐 ア デア ド レス 
を 算出 し た あと 答 処 理系 ルー チン に 制御 を 渡し ます . それ ぞ れ の コマ ンド の 処理 
が 終了 する と , 大 抵 の 場合 は 再び 解読 ・ 実 行 ル ー チ ナン に 戻っ て きま す が , END 
文 や STOP 文 を 実行 し た り , LIST・SAVE・DELELE な ど 主 と し て 
自 接 モー ド で 用 いる 一 一 言い 換え れ ば , ダイ レク ト 実 行 用 の - 一 コマ ンド を 実行 
し た 等 の 場合 に は , 所 定 の 手続 き を 終 を た の ち , プロ ンプ ト 表 示 部 に 入り ます . 
図 2・38・1 メイ ン ル ー チ ン の 3 つの 顔 
に 肖 の ーッ ドリ 
ms プレ ー ク ・ キ ー 機 日 
DUE63or8E7 ア 2 ( 
プロ ンプ ト 表示 部 


テキ スト 作成 部 解読 ・ 実 行 部 


| 一 行 翻 訳 ル ー チ ン | 


各 処 理系 


WO 。 SFP 。、 マロ グアム 夫 了 。 し US 。 SAYV 到 。、 DL し ETE、 6 
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2 一 9ー2 メイ ン ル ー チ ン に お ける 重要 な ワー クエ リア な ど 


ます 初め に ,. ワー クエ リア 内 の ボ ポイ ンタ (D9 : DA) と , この ポイ ンタ を 使 
用 する 汎用 読込 み ル ー チ ン 「D2」 と 「D8」 お よび ,。 「D2」「D 8 」 の 後 処理 
サブ ルー チン 「C7 6 0」( 数 字 ・ 区 切 廊 字 検出 ルー チン ) は 重要 な も の で , 第 0 
唱 の (6 ) の これ ら に 関す る 説明 を 随時 件 参照 下さ い . 

ワー クレ ジス タ (AF : B0O) は , SP (スタ ッ ク ポ イン タ ) の 復帰 用 の 値 を 
休 存 し て お く 侍 避 場 所 で , 父 字 領 域 上 限 (3F : 4 0 ) マイ ナス 1 が 初期 値 と し 
て 入り , 解読 ・ 実 行 ル ー チ ン を 通る ご と に その 時 点 で の SP の 値 に 更新 され て い 
きま す 。 この レジ スタ に よっ て ,。 例え ば 。 エ ラー が 発生 し た 場合 で も 。 SP の 値 
を エラ フー 前 の 値 に 戻し て エラ ー 前 の 情報 を 得る こと が で きる わけ で す . 

また , ワー クレ ジス タ (0 0BF) も 重要 な も の で す . (BF) に は 現在 扱っ 
て いる ファ イル の ファ イル 番号 が 格納 され ます が , 普段 は $ 0 0 が 入っ て お り , 
コン ソー ル が 対象 ファ イル で ある こと を 示し て いま す . LOAD, SAVE な 
ON INTIT て 。 INPUT 半 な ど 、 特 別 な ファ イル を アク セス する 際 に 
該当 ファ イル 用 の ファ イル バッ ファ の 番号 が 格納 され る こと に な り ま す . 特に ., 
テキ スト 作成 ルー チン 内 で (BF) が $ 0 0 以外 の 有効 を 値 を 持っ つて いる 場合 は . 
RM MERGE, CHAI 

に よっ て 外部 ファ イル か ら ブ ログ ラム を 読み 込ん で ,、。 テキ スト を 作成 中 で 
EE 徒 っ て , (BF) キ 0 で , か つ , 行 番号 の 付い て い 
な い 行 が 入力 され た 場合 に は 「Direct In File」 エ ラー が 出力 され ます . ー 

(338.94) 。 (85038)。 (93B:86C) 。 (98D 98EB) は 前 浴 
し だ た よう に , それ ぞ れ テキ スト エリ ア , 単純 変数 エリ ア , 配列 変数 エリ ア , フリ 
用 ここ で 注意 し て お きた い の は ., 了 

・3 4 ) マイ ナス 1 番地 。 すなわち , テキ スト エリ ア 直 前 の 1 バイ ト に は 常に 
$00 の 値 を 入れ て 開け て お く 〈 必 要 が ある , と いう こと で す . 解読 ・ 実 行 ル ー チ 
ン は ,。 入口 で 。 ステ ー ト メン ト の 区 切 文 字 (YNULLY また は Y:Y) の チェ 
ッ ク を する た だ ため , この 番地 の 内 容 が $ 0 0 (また は $ 3 A) で な いと , Syntax 
Error を 発生 きせ て し まい , いく ら RUN さ せ て も ,。 一向に プロ グラ ム が 走り ま 
0 

さら に ,。 (4 7 :48) と (4D:4 世 ) お よび (49:4A) と (4F 
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5 0 ) に つい て 触れ て お く こ と に し ます . 
(47:48) に は , 現在 実行 中 の 行 番号 ′。 テキ スト エリ ア を いじ っ て いた ら …… 
が 格納 され , これ も また ., 解読 ・ 実 行 ル ー チ な ん と , FM 一 7 が 走り 出し た !? 
更新 され ます . (4 7 : 48) の 値 は 
エラ ー 処 理 ル ー チ ン 内 で エラ ー 発 生 行 番号 
と し て 参 早 さ れる ほか , GOSUB 文 な ど 
で は , リタ ー ン 行 番号 と し て スタ ッ ク に ブフ 
ッシュ され ます . な お , コマ ンド 待ち や ダ 
イレ クト 実行 中 で は , (4 7 : 4 8) に は 
$FFFFE (この 値 は 行 番号 と し て は 許さ 
れ て いな い の で 淫 癌 する こと は な い ) が 格 
約 さ れ , 「Illegal Direct」 の チェ ッ ク な ど に 
時 し 4 42 旧 ) は 上 の 5 

の と ペア に な っ て いて , 現在 実行 中 の テキ 
ス 人 され る ボイン タダ で す 。 こ 
れ も , COSUB 文 な ど で ス タッ ク に プ ブッ 
ジュ され ます . これ に 関連 し て 。 (49:4A) お よび (4F:50) で は 。 そ 
れ ぞ れ , CONT コ マン ド で ブ プログ ラム を 継続 実行 する 際 の 再 ス ター ト 行 番号 , 
並び に , 再 ス ター ト 用 テキ スト 番地 が 格納 され ます . な お この (4 9 : 4A) は , 
テキ スト 作成 中 に お いて は , これ か ら 書 込み を 行う べき テキ スト 番地 の 一 時 退 話 
用 と し て 使わ れ ま す . 

最後 に , 対 サ ブ プルー チン 情報 受渡 用 レジ スタ (4B: 4C) に つい て 説明 し ま 
す . これ は 妥 す る に , AccD の 延長 に 相当 する も の で す . 6 8 0 9 CPU に は 4 
本 の ポイ ンタ を 除く と レジ スタ は AccD し か 残り ませ ん . これ 一 つ で は サブ ルー 
ナン と の 情報 の や り と り に 不便 な た め , 上 記 の レジ スタ を ワー クエ リア 内 に 設け 
だ わけ で す . 主 に 行 番号 関係 の ルー チン で よく 使わ れ ま す が , AccD や X レ ジス タ 
な どの 退 避 用 と し て も 多用 され , きわ め て 江 用 性 の 高い レジ スタ な の で す . 


凶 2・3・2 きま チン 情報 受 波 月 レジ スク の 使用 例 
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2 一 3 一 3 メイ ン ル ー チ ン ・ プ ブロ ンプ ト 表 示 部 


| アド レス | $8E63, $8E72 (一 $8E87 ) 
機 能 | 「Ready」 な どの プロ ンプ ト を 表示 し て , コマ ンド 待ち の 状態 で 
ある こと を 明示 する . 
X レ ジス タ に 「Break」, 「Abort」,。 エ ラー メッ セー ジ (4 1 種 ) 
の いずれ か の 先頭 番地 (実際 に は 先頭 番地 マイ ナス 1”" が 入る : 
プリ ント アウ トル ー チ ン $ 9 BDB を 使用 する た め に ) を 持っ て エ 
ント リ (た だ し , 8E6 3 の み . $8E ヒ 7 2 か ら エ ント リ す る と . 
入力 情報 は 要ら ず , 「Ready」 の み 出 力 され る . 
復帰 情報 | 復帰 せ ず ……… (0 0BF) を クリ ア し て テキ スト 作成 部 へ 進む . 
(4 7 : 48) = 直前 に 実行 中 だ っ た 行 番 号 が 格納 され て いる 
(ダイ レク トモ ー ド の 場合 。$FFFF に な る ) 
(0 0BF) ニテ フ ァイル 番号 
(05AC) =「 プ リン タ ON」 フ ラグ (第 4 章 参 照 ) 
(05BE) = ニ プ リ ンタ 未 改行 指示 フラ グ 
SU り UB| $9B50 一 テキ ャ リッ ジリ ター ン お よび ライ ン フ ィ ー ド を (BF) 
の ファ イル に 出力 (ここ で は 画面 に 出力 ) 
$ 9 BDBーー プ リン ト ア ウト ルー チン : (X 十 1) 番地 か ら の 文 
字 列 を NULL ($0 0) また は 引用 符 ($ 2 2) 
が 検出 され る まで (BF) の ファ イル に 連続 出力 
$B6 0 ビーー= "In_ 行 番号 " 出力 ルー チン : 出力 され る 行 番号 は 
上 記 の ワー クレ ジス タ (4 7 : 4 8 ) 内 の も の 
$ も D6 4A--=+ プ リン タ に キャ リッ ジリ ター ン お よび ライ ン フ ィ ー 
ド (改行 ) を 出力 する ルー チン 


解説 | メイ ン ル ー チ ン ・ プ ロン プ ト 表 示 部 は , 大 きく 分 け て , ホッ トス タ 
王 ド プロ ッ グ ク (b9 紀 69 王 お 9 1) と コラ コール ドス クー ト フ ロッ ク WW9B 
72-ー$8E87) の 2 つ に 分 か れ ま す . 

前 者 は ,。 まず , サブ ルー チン $ 9B5 0 に よっ て 画面 改行 を 行っ た の ち ,「Bre 
ak」、「Abort」 も し く は エラ ラー メッセ ー ジ の いずれ か を 出力 し ます が , これ は 中 
断 時 の 状況 に よっ て 決ま る も の で あり , エン トリ の 際 。 レジ スタ に 情報 を 蓄え 
て くる も の で す . な お 。 この 出力 に は $9BDB の プリ ント デア ウト ルー チン | ワ 
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ー ク レジ スタ (BF) で 示さ れる ファ イル に 出力 | を 使用 し ます . 次 に , 中 断 時 
の 実行 モー ド を (4 7 : 48) に よっ て 調べ 。 (4 7 三 4 8) 三 $FFFF で あか 
る 場合 、 つ まり, ダイ レク トモ ー ド だ っ た 場合 に は その まま コー ルド スタ ー ト プ 
ロッ ク へ と 進み ます が , それ 以外 の 場合 に は , (4 7 : 4 8 ) に 入っ て いる 行 番 
号 を サブ ルー チン $B6 0E で (例えば, 「Break In 5120」 な ど と いう 具 
合 に ) 出力 し て か ら コ ー ル ドス ター トブ ロッ ク へ と 進み ます . 

後者 の コー ルド スタ ー ト プ ブロック は , BAS 1 C 作 動 時 に は 必ず 一 度 は 通ら な 
AR 
まず , ファ イル 番号 レジ スタ (BF) と プリ ンタ ON フラ グ (0 5AC) を クリ 
や ヤ し た 後 , フラ グ (0 5 BE) を テス ト し ます . 御存知 の 通り 。 プリ ンタ と いう 
の は , 改行 が 出力 され た 時 点 で 初め て , プリ ント バッ ファ 中 の 普 積 さ れ た 一 行 を 
まとめ 印字 する わけ で すか ら , 例え ば , 直前 に 実行 きれ た LPRINT 文 が ",『 
(コン マ ) や ~ :/ (セミ コロ ン ) で 終わ っ て いて 改行 が な され て いな い 場 合 , 
まだ 印字 され て いな い 文 字 な ど が ブリ ント バッ ファ 内 に 残っ て いる こと も あり 得 
ます . そこ で , この 様 に 改行 が な され て いな い 場 合 に は , 林 行 を 指示 する フラ 
グ を 立て て お き , 実行 終了 時 (もしくは 中 断 時 ) に この フラ グ を チェ ッ ク し て , 
未 改 行 で あっ た 場合 に は ブリ ンタ に 改行 を 出力 (この 動作 を 行う の が サブ ルー ナチ 
ン $D64A) し , プリ ント バッ ファ 中 の 文字 を は き 出 させ て や れ ば よい の で す . 
この フラ グ が (0 5 BE) で あり , 未 改 行 の 際 に は $FEF と な っ て いま す . 
弦 い て 「Ready,」 ブ ロン プ ト 出 力 を 行い ます . この 動作 に も , $9BDB が 
用 いら れ て いま す . この 後 ,。 $ 8E88 か ら 始 まる テキ スト 作成 ルー チン に 制御 
を 濾し ます . 

な お , 「Break」 メッセ ー ジ 先頭 (一 1) は $8D60 番 地 | 一 $8D68l 

「 Abort 」 / は $D6AC 番 地 | 一 SD6B4I 
「 Ready」 / は $8D56 番 地 | 一 $8SD60I 

と な っ て いま す 、 

また , 4 1 種類 の エフ ラー メッ セー ジ 妊 は , $A446 一 $A7O0C 番 地 の エ リ 
に 格納 され て いま す . 
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2 一 3 一 4 メイ ン ル ー チ ン ・ テ キス ト 作 成 部 (テキ スト 作成 ルー チン ) 


| アド レス $8E88-ー$8F1B (ループ 形成 ) 

機 能 | コン ソー ル も し く は 外部 ファ イル か ら プ ログ ラム を 読み 込ん で 。 中 

間 言 語 の テキ スト を 作成 する . また , ダイ レク トコ マン ド が 入力 され た 場合 に は , 

ダイ レク トモ ー ド で ある こと を 宣言 し て 解読 実行 部 (解読 実行 ルー チン ) へ 分 岐 

す る. 

(0 0BF) ニプロ グラ ム の 読込 み 先 を 示す ファ イル 番号 [これ 
が $ 0 0 で あれ ば キー ボー ド 入 力 に よる 入力 を , 
それ 以外 ($ 0 1 一 $ 1 1 ) な ら ば 外部 ファ イル 


か ら の 読込 み を 表す |. 
|IWORK | (13 : 1 4 ) =「 作 成 中 の 行 の 長 さ [ バ イト 数 ]」 プ ラス 5 の 値 が 入 
) ま 入鹿 
(0 0BF) ニ フ ァ イル 番号 レジ スタ 


(00C0O) = 入力 デー タ 終 了 フ ラグ 

(3 3 : 3 4) ニテ キス ト エ リア 先頭 番地 

(3 5 : 3 6) = 単純 変数 エリ ア  〉 [テキ スト 終了 二 11 

(4 7 : 4 8) 実行 中 の 行 番号 

(4 9 : 4A) 三 CO NT 行 番号 (ここ で は 一 時 退避 用 レジ スタ と 
し て 用 いら れ て いる ) 

(4B : 4C) = 対 サ ブル ー チ ン 情 報 受渡 し 用 レジ スタ 

(5F: 60) = 逆 向 ブロ ッ ク 転 送 ・ ・ 転送 先 下限 アド レス 


(861? 62) / ・ 転 送 源 下限 
(6 3 : 64) = / orriiliuu 
(6 9 : 6A) = / ・ 転送 源 上 限 | 
※ 1 行 翻訳 ルー チン 内 で は (6 9) 単独 で 用 いら れる こと も あり 
ます . 

(A2:A3) =1 行 消去 ・ 先 頭 ア ドレ ス | 

| 1 行 消去 ルー チン 
(A4 :A5) =1 行 消去 ・ 最 終 ア ド レス 


$9FD3 | 用 
(A6 : A7) ニ ピ リオ ド 行 番号 ピ ' 


(D 9 : DA) = 汎用 読込 み ポ イン タ 

(0338 一 043B) = 現在 編集 中 の 行 番号 + オ テキ スト バッ ファ 
S U B| $D94A 一 AUTO 編 集中 の 処理 ルー チン … (1 ) て 詳 述 

$D7F7 1 行 入 力 ル ー チ ン (ファ イル 番号 レジ スタ で 示さ れ 
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る ファ イル か ら 1 行 入力 し, 043D--$053 
C の 行 入 力 バ ッ フ ァ に 格納 する ) … 第 4 章 参照 
$ ゃ DO01 1 っ つ LOAD 等 の 後 処 理 ル ー チ ン … 第 4 章 参照 
$C288| 1 行 翻訳 ルー チン [$C2 8 8 は テキ スト 書 込 用 , 
$C 2 8C| また , $C2 8C は ダイ レク ト 実 行 用 の エン トリ ] 
ゃ C67A 一 解読 実行 ルー チン ・ タ ダイ レク ト 実 行 用 エン トリ 
… 次 節 解読 実行 ルー チン 参照 
$9162 写 行 番号 読込 み ル ー チ ン ( 文 字 列 行 番号 定数 )…(2) 
$CDC6 … プ ロ テ ク トチ ェ ッ クル ー チ ン …… (3) で 詳 述 
※ プ ロ テ ク ト 指 定 に つい て は 第 4 章 を 御 参 照 下 さ 
Mi 
$8F1C 奄 行 番号 サー チル ー チ ン ……(5) て で 詳 述 
$9FD3 一 1 行 消去 ルー チン (DELETE 女 理系 サブ ルー チ 
ン : 実際 に は 『 1 行 だ け 」 と は 限ら な い )… 解説 参照 
$C7 32 っ テキ スト エリ ア の リン クボ ポイ ンタ 修正 ルー チン 
(部 分 修正 用 エン トリ ) …… (6 ) で 詳 述 
8F4B 一 NEW コマ ンド 処理 ルー チン の 一 部 で , 変数 消去 や 
文字 配列 作業 領域 初期 化 を 始め , 様々 な 初期 化 を 行 
う .…3 一 1 NEW コ マン ド 処 理 ル ー チ ン 参照 
※(1)ー(6) に つい て は , この 節 で 順 を 追っ て 説明 し て いき ます . 
その 他 に つい て は , 各部 分 の 説明 を 御 参照 下さ い . 
テキ スト 作成 ルー プ ($ 8E8 8 ご も 8F1B) か ら の 脱出 が 行わ 
れる の は , 次 の 4 つの 場合 に 限り ます . 
(1 ) 外部 ファ イル か ら の 入力 終了 時 っ $D 0 1 1 に 分 岐 
(2) ダイ レク トコ マン ド 実 行 を 受け 入れ た 場合 き $C6 7 A に 


分 岐 
(3) 入力 時 ・ 翻 訳 時 の エラ ー 発 生 エ ラー コー ド を 持っ て $8 
DD 1 へ 


(4 ) AUT OO 処理 が キャ ン セ ル さ れ た 場合 う $8E 7 2 プロ ン 
プ ト 表示 部 へ 


復帰 情報 | 各 終 了 条 件 


(1 ) で は , 特に 明示 的 な 情報 は あり ませ ん . 
(2 ) で は , ボイン タ (D9 :DA) に テキ スト バッ ファ 先頭 番地 
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($ ぉ 0 3 3 と C) を セッ ト し て , 解読 実行 ルー チン へ の 引き 継 き を 行 
ky 

( 3 ) で は , エ ラー コー ド を B ロ レジ スタ 中 に 格納 し て , エ ラー 処理 ル 
ー チ ン ($8DD1-$8E 6 2 ) へ の 引き 継ぎ を 行い ます . 

( 4 ) で は , 現在 の 編集 中 行 番号 (0 3 3A: 033B) が 復帰 情 
報 に 当り , この 値 は AUTO 編集 処理 ルー チン で , ピリ オド 行 番号 
に 代入 され ます . 


解説 | 前 述 し た 様 に .$8E88ー$ 8F1B の テキ スト 作成 部 は , 全て 
の BASIC フ ログ ラム ・ 中 間 言 語 テ キス ト を 作成 する ルー ナン で あり , FM 一 
7 上 の 他 の どの 場所 で も テキ スト の 作成 は 行 われ ませ ん . アス キー セーブ プ さ れ た 
本 ある い は CHA IN や RUN ファ 
イル デ ヂ ディスクリプタ” な ど と いっ た コマ ンド の 処理 も 。 本 体 は 。 テキ スト 作成 ル 
放せ 本 処理 系 で は 単に 前 処理 ・ 
人 後 処理 が 行 われ て いる に 過ぎ ませ ん . 

さて , テキ スト 作成 ルー チン は , 1 5 0 バイ ト に も 満た な い バ イト 数 の も の で 
す が , その 中 に 様々 な 男 時 の サブ ルー チン , それ も 閣 の ある サブ ルー チン を 含ん 
で お り , と り わ け , 1 行 翻 訳 ル セー チン ($C288 一 $C5E1 番 地 ) は , 8 0 
0 バイ ト を 優 に 隊 衣 仙人 り , 把握 する に は 労力 を 妥 し ます . 

それ で は , 図 2・3・ | REN2 生 この 図 は , テキ スト 作成 ルー チン の 構 
太 を Pi 

この 中 で 使用 し て いる 2 ee 順 を 追っ て 説明 し て いき ま 
す . た だ , 図 中 で 特に 注意 を 要する 入所 が いく つか あり ます の で , これ ら に つい 
て 以下 に 述べ ます . まず , $ 8E8E で キャ リー フラ グ に よる 条件 分 岐 を 行っ て 
ぃ いま す が , これ は 1 行 入 力 ル ー チ ン ($D7F7) に お いて キー ボー ド 入 力 中 に 
プレ ー ク ・ キ ー か control 一 C 。 contro キ 一 区 の 入力 が あっ た 場合 (この 時 キャ リー 
フフ ラグ が セッ ト さ れる ), その 行 の 入力 を キャ ン セ ル し て , も う 一 度 初め か ら 入 力 
の や り 直 し を 行う た め の も の で す . また だ た , 外部 ファ イル か ら の 1 行 入力 実行 中 に 
人 人 旭 す でき アテ アーク の が の うっ う て し まっ だ ウ 信 に ば 。 ツー クエ リア の フラグ (0 0) 
を 立て て 戻っ て きま す の で , この フラ グ の チェ ッ ク を 行っ て $ 0 0 で な けれ ば 
LOAD 々 な どの プロ グラ ム 読 込み の 後 処理 ルー チン ($D 0 11) へ 分 岐 し ます 

$ SE ル UA で , (13 : 1 4) に 入力 行 の 長 さ 十 5 の 値 を 格納 する と あり ます 
が , この 「 二 5 」 の 意 上 球 は お わか り で し ょ うか . テキ スト エリ ア に 格納 され る 隊 , 
テキ スト バッ ファ の 一 行 の ステ ー ト メン ト に 加え 々 先頭 に リン クボ イン タダ タ (2 バイ 
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叉 2・3・ 3 テキ スト 作成 ルー チン の ブロ ッ ク 図 


AUTO フ ラグ を テス ト : $00 な ら そ の まま リタ ー ン 
| PT TYP | AUTO 行 番号 発生 ・ 画 面 出力 ・ そ の 他 判 断 な ど 
行 入力 を 1 行 入力 を 行っ て $ 8 EB 5 へ … 
地 
あの | 行 入 力 ル ー チ ン ($D7F7) F (BF ) の ファ イル か ら 1 行 入力 : 行 入 力 バ ッ フ ァ に 
( な と て な ' ] ん Break キ ー、control-C:X が 押さ れ て いた 時 は 、 キ ャ 
セリ シク 9 リー フラ グ を セッ ト し て 戻る / 
キャ リー セッ トス カテ ー タ 終了 フラ グ (C0) テ ス 
(CO) 0 中 王 | 〆 
$D2 ルー チン に よ り 、 バ パッ プ ァ が から ] 文字 読み 込む (数 字 一 キャ リー セッ ト ) 
LOAD 人 後 処理 部 タイ レク ト 女 理 中 で ある こと を 宣言 [【(47 : 48) に $FFFF を 代入 する ] 
($DOII) に 分 岐 


キャ リー クリ ヤ 
/ 数 字 で な い 〕 な ら 


ファ イル 番号 (BF ) チェック ッ ー 科 ミ - _ 
| ( pa 解読 実行 部 
4 Direct In File ?* ($C67A) に 
( 数字) 1 エラ ー 発 生 ($8DCF ) 分 岐 
ンー 
Lo | 行 番号 読込 み (③3162/ バッ ファ か ら 数 字 列 を 読み 込み ,| 行 番号 が 63999 を 
2 2 バイ ト の 行 番号 定数 に 変換 し | 超え た ら 

| プロ テク トチ ェ ッ ク ($CDC6) || | て (4B:4c) に 格納 Syntax 

$8EB5 番 地 一 ーー 一 


FrrOr.〆 
(4B: 4C) の 行 番 号 一 一 (33A : 33B) に 格納 
$8EC3 番 地 一 一 一 一 を 人 空白" ツ の 取扱 い 
| 1 行 翻訳 ($C288): 結 果 は テキ スト バッ ファ (33C-43B) に 格納 され る 
$8EDA 番 地 一 一 一 一 を (13 : 14) に 「 入 力行 の 長 さ 十 5 」 を 格納 


行 番号 -~(4B : 4C) と し て 


| 行 番号 サー チ ($8F1C) | (4B: 4C) に 格納 され た 行 番 号 に 等 し い 行 番 号 を テ 
$8EE2 番 地 一 一 --ーー 


了 6 キス ト か ら 探 し 当て 、 そ の アド レス を X レ ジス タ お 
X レ ジス タ [編集 中 の アド レ _ 本 『 
ス ] を (49 : 4A) に 退避 よび (69'6A) に ググ 見 つか ら な けれ ば キャ リー セッ ト 
キャ リー セッ ト 
_ キャ リー クリ ア 
編集 中 の も の と 同じ 
行 番号 を 持つ 行 が 無 X レ ジス タ の 値 一 (A2 : A3) [消去 先頭 〕 : (X) の 値 【( リ ンク の 値 }ー(A4 : A5) (消去 最終 ]〕 
けれ ば 「 消去 」 を スキ Pr | 
リプ | 1 行 消去 ($9FD3) | 同時 に (A2 : A3) 一 (69 : 6A) に 格納 
| . 
本 ee フロ ッ ク 転 送 
58EEF 番 地 一 テキ スト バッ ファ の 1 文字 目 ($033C) の 読込 み に ソー ス 上 限 
ず 
( S033C) =$00 テ $00 $8E44 一 8F02 テキ スト 終了 (35 : 36)… ブ ロッ ク 転 送 ソ ー ス 下限 (61 ・ 62) 
補 廊 ( リ か [| K 3 て (61 : 62) 二 (13 : 14) つ ブロ ッ ク 転 送 ・ 転 送 先 下 限 (5F・60) 
の み が 押 され た 時 の テキ スト ら す 
な ら 、 7 ーー 信吉 導 向 ブロ ッ ク 転 送 (S8D93) 
| 行 消去 の み 行 う 同時 に 、 編 集中 の 行 番号 つ Se 7 と っ ふと 4 に 人 が 
$8F05 一 8F0OD- - 一 暫 テキ スト バッ ファ の 1 行 を 、 テ キス ト エ リア の 、 随 間 を 空け た 場所 に 挿入 する 
| 変数 消去 な どの 初期 化 ($8F4B 番 地 : NEW ル レー チ ン の 途中 か ら …) 
$8FI4 番 地 一 一 一 (49 : 4A) か ら X レ ジス タ に 、 退避 させ て お いた 「 編 集中 の アド レス 」 を 読み 出す 
X レ ジス タ が 示す 番地 以降 の テキ スト エリ ア の リン ク ポ イン タ を 修正 する ($C732) | 
コーーーーーー 一 ー$8F1B 番 地 
(振出 に 戻る ) 
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ト ) と 行 番号 (2 バイ ト ) : 未 尾 に 行 の 終り の 区 切 文字 NULL($00) の 1 バ 

イト が 付加 され , 計 5 バイ ト だ け 本 女 よ り も 長く な り ま す . この 5 バイ ト 分 が 「『 

+ 5 」 に 当る わけ で す . 最後 に , $ 8EEC で 呼び 出し て いる 1 行 消 去 ル ー チ ン 

($9FD3):$8F0O00 で 呼び 出し て いる 逆 向 ブロ ッ ク 転 送 ($8D9 3):$ 

8FO6 一 8FOD の テキ スト 搬入 部 の 3 つの ブロ ッ ク 転 送 に つい て , 図示 し な 

が ら 関 連 つ け て 説明 し ます . これ ら 3 つの ブロ ッ ク 転 送 は , 組 に し て 使う こと を 
nm に 入れ て 設計 され て お り , その 様子 は 図 2・3・4 に 示す 通り で す . 


(1 ) AUTO 編 集中 の 処理 ルー チン 


$D94A ($D944-$D97F) 


[機能 | AUTO 編 集中 フラ グ (0 0 9D) を チェ ッ ク し , クリ ア (AUT 
O 編集 が か か っ て いない) の 場合 は その まま リタ ー ン , セッ ト さ れ て る 場合 は 、 
行 信 号 の 自動 発生 な どの AUTO 編集 の 1 ステ ッ プ を 実行 する . 
(0 0 9 D) = ニ AUTO 編 集 実行 中 フラ グ 
(9E: 9F)= 現 在 編集 中 の AUTO 行 番号 
(AO : A1)= ニ AUTO 行 番号 の 増分 (刻み 幅 ) 
※ こ れ ら 3 つの 情報 は AUTO コマ ンド 処理 ルー チン で 設定 され ます . 
(0 0 9D) = 次 の AUTO 編 集 を 続け る か 否 か の 情報 
(9E : 9F)= 次 の AUTO 編 行 番号 
(4B : 4 C) 三 自動 発生 させ た 行 番号 の 値 
上 記 の 他 , AUTO 編 集 が キャ ン セ ル さ れ な か っ た 場合 に は ,(D 9 
・DA (に 行 入 力 バ ッ フ ァ 先 頭 番地 「 も 0 4 3 D」 を セッ ト し て リ 
ター ン し ます .。 
SU 日 | $D9 2F つ セット フィ ー ル ドル ー チ ン [第 4 章 参照 | 
もぉ 8F1C… 行 番号 サー チ (4B: 4C) と 同一 の 行 番号 が 見 つか 
っ た 場合 に は キャ リー フラ グ を クリ ア 」 
$ ぉ 9 ECC 一 (4B : 4C) に 入っ て いる 行 番 号 の 値 を 画面 に 出力 
する [ 行 番号 定数 表示 ルー チン $B 6 1 5 を 使用 ] 


$9C2 2 一 の 空白 ("マー ) を 画面 に 出力 |(BF) フ ァイル が 
Pe oyw ad 

$ も D80Aー 一 キー ボー ド か ら の 1 行 入力 |Break キ ー, cont 一 C 
本 
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図 2・3・4 テキ スト 作成 に お ける 、 3 つの ブロ ッ ク 転 送 


①) 1 行 消去 ルー チン ( $9FD3) (② 逆 方 向 ブ ロッ ク 転 送 ($8D93) 


テ 

キ 

ス 

0 
(A2・ A3) つ | 。 ! (69 : 6A)・・・・・ っ (69 : 6A) つ 
DELETE ! EE み ザ を 
欠 囲 先頭 I この 代入 は 2 

ア 


$ 8EF8 で 実行 


(A4 !: A5)-* 半 2 
DELETE 6 


地 囲 最終 AA | | 
(61 : 62) 一 | 


/ 転 送 先 下限 | 
| (61 : 62)(13 : 14)…(5F : 60) つ 
転送 源 下 限 


LDA。 一 

STA。 一 U 
CMPX(69 : 6A) 
BNE *ー6 


③ 1 行 挿入 ($8F 03 一 8FOD ) 
テキ スト バッ ファ 


$8EFC で ' 行 わ 


| この 足し 算 は 
| 
「 れる 


$0338 一 

ャ 

33Aー> Pe た mn 
"ーー | お ける X の 最終 値 


$0338 十 | | 
行 の 長 さ 十 5 


| テキ スト の 終り 


ーーー 最終 的 な (35 : 36) と し て 代入 
〔$8FOE 番 地 で 行わ れる 〕 


|<ー(5F : 60) 


※ 罰 中 。 (0338:0339) に 配置 され て いる 80404 は 。 リン クボ イン 


タ の 領域 を 確 代 す る た め の ダ ミー コー ド で す . 


7 」 


AUT0 編 集 の や り 方 で す が , A0TO コ マン ド 処 理系 ($ 9FE 
7 一 AO019) で は ,(9D),(9E:9E),(AO0:A1) の 設定 を 行っ て テキ ス 
ト 作 成 ル ー チ ン に 分 岐 す る だ け で あり , AUTO 編 集 の 本 体 も , 実は チ テキ スト 作 
成 ル ー チ ン そ の も の で す . た だ, 行 番号 の 目 動 発 生 等 の 付加 処理 を 行う た め に ., 
この ルー チン が ある わけ で す 「 こ の 様子 を ブロ ッ ク 図 に し た の が 図 2・3・5 で 
す . 図 2・3・3 と 比較 し て 御覧 下さ い ]. AUT0 編 集 が か か っ て いる 場合 , こ 
か ` リ ます が , 次 の よう な キャ ン セ 
ル 要 因 が 成立 し た 場合 に は , フ ラグ (9D) を クリ ヤ し て プロ ンプ ト 表 示 部 ($ 8 
E72) へ の 脱出 が ヵ され , "Ready*" が 表示 され ます 、 
1 ) 編 集中 の 行 番号 と 同一 の 行 番号 が テキ スト 中 に 既に 存在 し て いる 場合 . 

和 1 行 入力 時 に プレー クキ ー,control 一 C じ また は control 一 X が 押さ れ た 場合 . 

(ji) 空 文 (リタ ー ン キー の み が 押 され た 状 右 ) の 入力 が 行わ れ た 場合 

また , 次 の 行 番号 を 計算 中 に , その 値 が 6 3 9 9 9 を 越え た 場合 , 現在 の 編集 
は その まま 続行 され ます が , フラ グ (9 D) を クリ ア し て , 次 回 の AUTO 編 集 
を キャ ン セ ル し ます . 


凶 2・3・5 AUTO 編集 の 様子 


$ ゃ D97B 


$8E72 二 フラ グ (9D) を クリ ア : AUTO 編 集 キ ャ ン セ ル 
| プロ ンプ ト 家 示 部 | 
* [ D 4 上 
| コー ル (JSR) NM - に 
も BEBB… ' IT 5 2 に ee " フラ グ (9M を テス ト 
(9D) OO な ら RTS 還 ' 半 ーー 
AUTO 行 番号 読出 し :X レ ジス ター(9E:9F ) 


| 1 行 入力 ルー チン ($D7F7) 「 AUTO 行 番号 -*(4B : 4C) に 格納 | 
| 2 ィ ーzrdog) | 


ダイ レク トコ マン ド の 選 り 分 け | 行 番号 サー チ (S8F1C) 


人 999E0 *SB615) 
四 空白 ("7) の 表示 (3 9C22) 
1 行 入 カル ー チ ン ( S800A) 


行 益 号 読 み 込 み ($9162) 


2 


sgEB5・…・ ーー Break, 江 SACRZOb れ た 場合 
SD974 ' 入力 バッ ファ の 1 娘 字 目 を テス ト 

2 馬 1 文字 目 ) =$00[NJLL) 

「(D9 : DA) に 543D :・ リ ター ン キ ー の み が 押 され た 


行 入力 バッ プ ァ 生き [ 避 
0 0 - 本 炎 の 行 号 計算 (9ESF TOEF) 十 ( 上 AA1 1 


「 ー し 行 秋 号 が 563999 を 越え た 場合 
(4B.4C) の 行 番号 -~(33A433B ) | 
] de ー | | (9D) を クリ ア : 回 の AUTO 楊 集 キ ャ ン セ ル 
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号 読込 み ル ー チ ン $9162 


$9162 一 $9194 


後 


記 


ボイン タ (D9 : DA) が 指す バッ ファ 位置 か ら の 文字 列 を 行 番号 に 


変換 する [文字 列 が 数 字 で 始ま ら な いと き に は 値 と し て 0 を 返す |. 


AB。X 


入力 情報 | (D 9 : DA) に , 読み 込み の 対象 と な る バッ ファ の 位置 アド レス を , 


A レ ジス タ に , 変換 を 行 お うと する 文字 列 の 最初 の 一 文字 を , キャ 
リー フラ グ に は A レ ジス タ の 文字 (数 値 の 場合 ) を セッ ト し て お く 〈. 


※ こ の ルー チン は , コー ル 直 前 に , や $D2 ル ー チ ン も し く は DD8 ル ー チ ン に 
よっ て 。 A レ ジス タ お よび キャ リー フラ グ を あら か じ め 設 定 し て か ら 呼 出す 
こと を 前 提 と し て いる の て 注意 を 要する . 


復帰 情報 9355 


A レ ジ ク タ ー 次 の 文字 つて, 空白 スキ ッ フ 
キャ リー フラ グ ニ = ニ A レ ジス タ の 文字 が 数 値 な | が 行わ れ て いる の で 
ら ( ば セッ ト さ れる . ) 要 注 意 


(4B : 4C) = 作成 され た 行 番号 の 値 


上 記 の ワー クエ リア の 他 に は , 


$D8. 


(0 0 1 1 ) が 作業 用 レジ スタ と し て 用 いら れる . 
汎用 読込 み ル ー チ ン 


※ こ の ルー チン に は 明示 的 な RTS 命 令 は な く , JMP ⑤D8 で 呼び 出し 
元 に リタ ー ン し て いる 


| 終了 条件 


解 


ロロ 


読み 込ん だ 文字 が 数 字 で な か っ た 場合 (空白 "この 場合 も 含む ), 
$ も D 8 ルー チン を 通っ て リタ ー ン し ます . 

また ,(4B: 4C) に 蓄え られ て いる 値 が 6 4 00(=$1900) 
以上 で ,。 な お か つ 数 字 が 続い て いる 場合 に は ,(4B:4C) *10 
を 計算 する と , 行 番号 と し て 許容 され る 値 6 3 9 9 9 を 超え て し ま 
いま す の で , この 時 点 で , Syntax Error ($ 9 0 8 9 を 通り 抜け て 
$92A0 番 地 ) に 分 岐 し ます . 


この ルー チン は 。 1 0 倍 演 算 の や り 方 や フラ グ の 立て 方 な ど に 七 妙 


な テク ニッ ク が 用 いら れ て お り , 参考 に な る 部 分 も 多い か と 思い ます の で , ソー 
スリ スト を 載せ て お きま す . ブロ グラ ム 設 計 に 御 役立て 下さ い . 
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| 番 地 | 


皆さん の 中 に は , $9 18 3 番地 以下 の 処理 に , 
いな い の か 不思議 に 思っ た 方 も いら っ し ゃ る と 思い ます . 
0 草 (6) で も 述べ まし た よう に , 


9162 


9167/ 


9 1 6 日 


91683 


命 令 
LDX 
っ | 六 
BC じ ら 
JIMP 
っ UBA 
っ 「 A 
LDD 
CMPA 
BHI 
ASLB 
OLA 
ASLB 
ROL し LA 
ADDD 
ASLB 
ROLA 
ADDB 
ADC じ CA 
STD 
L DX 
に 区 大 
っ | 和久 
LDA 
CMPA 
BCC 
っ り UBA 
っ けり BA 
BRA 


| オペ ラン ド | 

0 | 初期 値 の 代入 

(4B:4C) 

$916B 一 一 数 字 が 続い て いれ ば , 処理 続行 
$D8 ーーR TS の 代わ り も 兼ね る 

キ $30 | 読み 込ん だ アス キー コー ド か ら 
$1 1 ) 1 0 進数 1 桁 の 値 を 生成 する 


(4B : 4C) 一 一 格納 され て いる 値 を 読み 出す 


キ $18 | (4B: 4C) の 値 が 64000 
$9104 | 以上 で あれ ば エラ ー 
AccD ニ (4 日 :4C)*5 
| A ccD 三 
(4B: 4C) 
ネ * 1 0 
(4B: 4C) 
| Acep=AceD* 2 
$ 11 ] アス キー コー ド か ら 生 成 し た 値 
せ $0 0 | を AccD に 加え 合わ せる 


(4 B : 4C) 一 一 値 の 格納 


(D9 :DA) 

ポイ ンタ (D9 : DA) の 

| イン クリ メン ト 
II DA ) 
> 人 、 央 

フラ ク の 立て 方 に 注目 
せ 3A 
sg9167 | 数 字 の 時 キャ リー セッ ト 」 
ke ※ 空 白 ス キッ フ プ 不 要 の た め , 

ふも D 2 ルー チン は 使え な い 

せ $D0 
$9167 


うし て で て bD ク 2 ルー チン を 用 
この 点 に 関し て は , 第 
$D 2 ルー チン は 空 日 (マー コマ ) の スキ ッ プ を 行い 


ます か ら , こ こ で , も し $D 2 ルー チン を 用 いて 文字 の 読込 み を 行う と , 例え は , 
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Ona2 の 内 も 条 号 !102」 と し て 航 わ ん れ て し まい 。 こ の よう だ 
避け る た め に も $918 3 番地 以下 の 似 た よう 2 な 処理 プロ グラ ム を 必要 と 
け で す . 

な お , $ 9 1 0 4 番地 に は 直接 エラ ー 発 生 プ ロ 本 $ 9 
0 8 9 へ の 分 岐 命令 が 書か れ て いま す . そし て その 9089 に も , $924A0 
へ の 分 岐 命令 が 書か れ て お り , 結局 。 $92A0 で エラ フー EMH 
せ $02 : IMP $8DD1 (エラ ー 処 理 ル ー チ ン :B レ ジス タ に エラ ー コ ー 
ド を 入れ て ジャ ンプ すれ ば よい ) の 2 つの 命令 で 構成 きれ る ] こと に な り ま す . 
この $9 2A0 へ の ジャ ンプ 命令 は 「Syntax Error」 発 生 の エン トリ ボ ポイ ント 
で す の で , よく 理解 し て お いて 下さ い . また , 上 の よう な , 分 岐 命令 を 小刻み に 
継い で いく 方 法 は , 6 8 系 CPU を 使っ た ムコ ンピュータ で は よく 見 受け られ ます . 


(83) プロ ケア クト チェ ッ ク ル ーー チン 


$CDC6  $CDCE (わずか 5 バイ ト ) 

グロ クラ バム バブ ロロ デ ク ト ドク ラク (0 0D1]) を チェ ッ ク し て 。 $00 以 
外 の 場合 品 。 即ち も , ブロ グラ ム に 保護 属性 が 指定 し て あっ た 場合 に , 「Protected 
Program」 エ ラー を 発生 させ る . 

| エラ ー が 出 な い 場 合 は 全く 使用 し な い . 
(00D1) に , プロ グラ ム 保 護 属性 の 情報 

エ ェ エラー 発生 の 際 。 B レ ジス タ に 「Protected Program」 エ ラー に 対 
する エラ ー コ ー ド 6 2 ($3E) が 入り , エラ ー 処 理 ル ー チ ン ($ 
8DD1) に 分 岐 

(00D1) ニ プロ グラ ム プ ブ プロテクト フラ グ 


'S U 日 | プロ グラ ム プ ロ デ テク ト フ ラグ (D1) が セッ ト き され る の は ,。 イン タ 
プリ タ 内 で は , L0AD 前 処理 ルー チン (も ちろ ん , CHATIN ろ どの 処理 も 合 
まれ ます ) だ け に 限ら ちら れ ます . プロ グラ ム の 保護 属性 を 指定 する の は , SAVE 
aa ー れ が 指定 きれ る と 。 その 財 の 情報 

ァイル に 書き 込ま れ ま す . LOAD 前 処理 ルー チン で , ファ イル か ら そ の 利 
呆 拾い 上 げ る と , 直ちに この (D 1) フラ グ が セッ ト さ れ , 以後 この プロ 
グラ フラ ム に 対す る , LIST コマ ンド ・EDTIT コ マン ド の 使用 や 。 行 の 削除 ・ 修 
正 処 理 は で き な く な り ま す (た だ し , AUTO コ マン ド に よる 付加 と DELET 
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E コ マン ド に よる 抹消 の 2 つ は 行え を ます. この 2 つの コマ ンド 処理 系 で は プロ テ 
クト チェ ッ ク を 行っ て お り ま せん ). こ の よう な 場合 に プロ テク ト を 解除 する に は , 
(D 1) フ ラグ を 直接 クリ ア す る 以外 あり ませ ん . 

保護 属性 や 「P オ プシ ョ ン 」 に つい て の 詳細 は , 第 4 章 を 御 参照 下さ い . 


(4) 1 行 翻訳 ルー チン 一 一 中 間 言 語 作 成 工場 一 一 


$C288 一 $C5E1 
機能 | 行 入 力 バ ッ フ ァ に 蓄え られ て いる アス キー コー ド て 書か れ た プロ グ 
ラム の 一 行 を , 中 間 言 語 プ ログ ラム に 翻訳 し て テキ スト バッ ファ ($0 3 3 C 一 
$0 4 3) に 格納 する . 
すべ て 使用 する . た だ し , DP は $ 0 0 を 保持 , SP (スタ ッ ク ボ 
イン タ ) は リタ ー ン 時 に 元 の 値 に 戻る . 
$C2 8 8 か ら エ ント リ の 場合 は 。 
XX レジ スタ に , バッ ファ の 先頭 アド レス ー1 の 値 
ゃ C28C か ら エ ント リ の 場合 は 。 
(D9 : DA) に , バッ ファ の 先頭 アド レス の 値 


この 他 , 
(00BF) に , 入力 バッ ファ に 読み 込ん だ プロ グラ ム の 入力 ファ 
イル 番号 


を キー プ し て お く 〈 く . これ は , プロ グラ ム の 地 の 文 で , $⑤80 一 $F 
F の 午 囲 の コー ド が きた 場合 . エラ ー を 出す か どう か 判定 する た め 
に 用 いら れる | 外部 ファ イル か ら の 入力 で あれ ば その コー ド を 無視 
し て 読込 み を その まま 続行 する の に 対し , キー ボー ド 入 力 で あれ ば 
違法 な 文字 コー ド 」 と し て 「Syntax Error」 を 発生 きせ る |. 

| 復帰 情報 人 02 


ベレ ジス タ (=$ 0 33B) 

り レ ジス タ デー テキ スト バッ ファ 上 に 作成 し た 中 間 言 語 プ ブロ グラ 
ム の 最終 番地 十 3 

D レジスタ ーー 作成 し た プロ グラ ム 1 行 の 長 さ 十 5 


(ニニ リ レ ジ スタ の 値 一 $ 0 3 3A) 


WORK | (D9 : DA) = ニ バ ッ フ ァ 読 込み ポイ ンタ 


(0 0 5F) ー2 バ イト 中 間 コ ー ド YFFXX※* 指定 フラ グ 
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っ り B 


終了 条 件 


解 。 説 


(0 060) ーー 中間 コー ド 作 成 用 レジ スタ 
お よび , 文字 列 ( 定数, 注釈 ) 処理 の 区 切り 

(0061) ーー 変数 名 綴り 内 で ある こと を 指示 する フラ グ 
(綴り 内 一 一 $FF : それ 以外 一 一 $ 0 0) 

(0062) =DATA 文 中 で ある こと を 指示 する フラ グ 
(DATA 文 中 一 一 $ 0 1 : 外 一 一 $ 0 0) 

(0 0 BF) ー フ ァイル バッ ファ 番号 (プロ グラ ム の 入力 先 を 指 
示 : キー ボー ド 入 カーー$ 0 0 : 外部 ファ イル ーー 
5: [第 4 章 参照 」 

(E7 :E8) テニ LIST, LLISTT 行 番号 処理 用 キー・ ア ドレ 
ス 格納 レジ スタ 

(0 1EF 一 0216) 予 納 語 テー ブル ・ ジ ャ ンプ テー ブル 案 引 

(0 33C 一 043B) ニ テキ スト バッ ファ (作成 され た 中 間 言 語 プ 

ログ ラム の 一 行 が 格納 され る ) 

(0074 一 007C)= ニ FAC1 

(0017) =FAC1 中 の 数 値 の 型 (2, 3, 4, 8) 

(0 069) = 左右 カッ コ の ネス ティ ング カウ ンタ 

(4B:4C) = 行 番号 読込 み ル ー チ ン ($9 1 6 2) か ら 結 果 を 
引き 継 で レジ スタ 

(027502772| し |BAS1C 鉱 張 用 分 岐 命 

(0 29F02A1)) 令 を 書く た め の レ ジス タ 

$D 8 ルー チン [数 字 の と き , キャ リー を セッ ト し て 戻る | 

$9 4FD ロ ーー アルファベット チェ ッ ク [AccA の 内 容 判定 」 

$ ぉ 950F 一 つ 数 字 チ ェ ッ ク | / ] 

※2 つ と も , 条件 成立 の 場合 . キャ リー を クリ ア し て 戻る . 

$8 5 9 7 一 ブロ ッ ク 転 送 [AccB の バイ ト 数 だ け 転 送 ] 

$B5 0 ピロ 一 み 文 字 列 数値 ・ 変 換 ル ー チ ン 第 5 草 参照 

$9 1 6 2 一 写 行 番号 読込 ルー チン (2) て 既 述 

行 入 力 バ ッ フ ァ か ら 読 み 込ん だ 文字 が NULL ($0O 0 ) で あっ た 

場合 , エンデ ィング ブロ ッ ク [| 解説 参照 | を 通っ て リタ ー ン し ます . 


行 入力 バッ ファ か ら の 読込 み ポ インタ と し て は , ほとん どす べ て , 


X レ ジス タ が 用 いら れ ,(D 9 :DA) を 用 いた 読み 込み を 行う の は 2 ヶ所 だ け で 
す . エン トリ の 違い [$C288 と $C2 8C の 違い | は , この メレ ジス タ に 入 
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る べき 値 の 与え 方 の 違い で あり , $C2 8 8 の 場合 は ,  X メ レジ スタ に 読み 込み 開 
始 番 地 マ イナ ス 1 の 値 を 入れ て エン トリ する の に 対し , $C2 8C の 場合 は 。 (D 
9 : DA) に 読み 込み 開始 先頭 番地 その も の を 与え ます . この と き 与 える アド レ 
ス は , 何 も 行 入力 バッ ファ の 先頭 番地 に 限ら れる わけ で は な く , 未 翻 訳 の ブログ 
ラム が 入っ て いる 場所 の 先頭 番地 で あれ ば , どこ で も よい わけ で す . ユー ザ の 工 
天 に よっ て 様々 な 応用 が きく ルー チン で す . 

て 。 この ルー チン の スグ プー アル ング ソロ ッ ク は DO293 で (029982 で 講 
込み ボイン タダ タ X% の 読み 出し の あと , 拡張 フッ ク $0275 を コー ル し , テキ スト 
バッ ファ 先頭 番地 $⑤ 0 3 3 と を U り レジ スタ の 初期 値 と し て 与え ます . 以上 の よう 
に , U り レジ スタ は この ルー ナン の は ほぼ 全域 に 渡っ て 書込み ボイン タ と し て 用 いら 
fbCUV ま ず す 。 

迷 の $C2 9 4 番地 か ら $C5E 1 まで が 巨大 な ルー プ を 構成 し て お り (も ち 
ろ ん, 間 に 小 ルー チン を 含ん で は いま す が ). 中 間 コ ー ド ・ 変 数 綴り ・ 各 種 定数 な 
と を 次 々 に 作成 し て は 格納 し て いき ます . この ルー プ を 一 度 に 説明 する の は 大 変 
で す の で ,。 2 0 の ブロ ッ ク に 分 割 し て 述べ て いこ うと 思い ます . 


[ 1 ] 初期 設定 部 


| アド レス | $C294 一 $C29B (8 バイ ト ) 
機 能 | フラ グ (6 1)(6 2 ) お よび , レジ スタ (E7 :E8) の 4 バイ ト 
を クリ ア す る . 


解 説 | この ブロ ッ ク は , 最初 と , 地 の 文 ( 色 ち , 注 怠 文字 列 や 文字 列 定数 
の 外部 ) で マ : マ (コロ ン ) を 検出 し た 場合 の み 通 過 し ます . 1 つの 文 が 始ま る 
時 , 上 の フラ グ ・ レ ジス タ を 初期 状態 に する 働き を 持つ ブロ ッ ク で す . 

フラ グ (6 1) は 。 現在 。 読込 み ポ イン タ X の 読み 出し て いる 文字 列 が , 変数 
名 綴り を 構成 し て いる こと を 指示 する [この と き $FF が 入る | も の で す . また , 
フラ グ (6 2 ) は , 現在 読み 出し て いる 文字 列 が DATA 文 中 に 記述 され る 一 
連 の デー タ を 構成 し て いる こと を 表し ます . 

レジ スタ (EE 7 :E8) に つい て は 。,[ 2 0 ] で 詳 述 し ます . 
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L2」 読込 み ・ 分 析 部 


3 $C29C 一 $C2C7 (4 4 バイ ト ) 
読込 み ボ イン タ X の 指す 位置 か ら 1 文字 を と り 出 し て A レ ジス タ に 

Ti その 内 容 や 現在 の フラ グ ク の 状態 に 応じ て , どの 処理 プロ ッ ク へ 分 岐 す れ 
ば よい か を 判定 する . この と き , ポイ ンタ X の イン クリ メン ト も 同時 に 行う . 
「WORK | (6 0 )= 中 間 コ ー ド 作成 用 レジ スタ 
( 6 1 ) 三 変数 名 綴り 内 で ある こと を 表す フラ グ 
(6 2)= ニ DATE 文 中 で ある こと を 表す フラ ク 
$C4 9 0 一 アル ファ ベッ ト テ スト ・ サ フル ー テ チン 

(アル ファ ベッ トチ ェ ッ クル ー チ ン $94FD を サブ ルー チン と 

し て 使用 し て いる ) 
$950F 一 … ジ 数 字 チ ェ ッ クル ー テ チン 
※ こ れ ら 3 つの サブ ルー チン に つい て は , [| 1 4 アル ファ ベッ ト テ スト ・ サ プ 
ルー チン の 項 で まとめ て 説明 し ます の て で, 随時 そちら を 御 参照 下さ い . 


まず ,「LDA , X 士 」 で 読み 込み を 行い 、 NULL ($00: 入 
行 の 終り を 表す ) CDU は 19 トド の シテ イシン クア ロッ ク グ な と 分 了 し ます 

NU 工 工 で な い 場 合 、 フ ラク (6 1 ) を 見 て 変数 名 級 り 内 で ある か と うか を 判 
定 し , 変数 名 り 内 で あれ は ば, 遇 4 検索 を 行わ ず に 格納 の み を 行い ます . た だ 
し , $C490 や $950F な ど に よっ て A レ ジス タ の コー ド が アデ アル ファ ベッ ト 
で も 数 字 で も な い 電 人 (人 と し て 用 い 2 こと が で き な い 文字 コー ド の 場合 ), 
フラ グ (6 1) を クリ ア し て 変数 名 綴り 外 の 処理 (予約 語 検索 な ど ) を 行い ま 
す . 

次 に , A レ ジス タ の コー ド が 空白 ママ ($ 2 0) か どう か を 調べ , 空 日 で あ 
れ ば や は り 格 納 の み を 行い ます . 空白 は , 変数 名 綴り や 予約 語 竣 り の 間 に 誤 っ て 
割り 込ま な い 限り 。 い くつ あっ て も か まわ な い の で 配置 を 工夫 し て 下さ い . 

以上 に 該当 し な い 場 合 、A レ ジス タ の コー ド を (6 0 ) に 格納 し て お きま す . 
番目 に 。 A レ ジス タ の コー ド が 引用 人 符 "” マ ($22) か どう か を チェ ッ ク 
し ます . も し , 引用 符 で あれ ば ,[ 6 」 の 中 の $C2FC に エン トリ し ます . 
oe DATA 文 中 で あれ ば , や 

Ui この 際 ,. コロ ンマ : マ で あっ た 場合 に は , 格納 後 , 前 
NAMi 戻り 。 フラ グ を クリ ア し ます . 

今 ま で 述べ た うち の いずれ で も な か っ た 場合 , お よび , 変数 名 綴り リフ ラグ が 改 
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め て クリ ヤ さ れ た 場合 に は , [ 4 ] 入力 チェ ッ ク 部 へ 進み ます . 
な お , 中 間 コ ー ド ・ 数 値 定 数 以外 の 文字 コー ド の 大 部 分 は この ブロ ッ ク の 「S 
TA , U 二 」 に よっ て 格納 され ます . 


[3 エン ディ ング ・ ブ ロッ ク 


| アド レス | $C2C8 一 $C2D6 (1.5 バ イト ) 

機能 | 書込み ボイン タ U が 指し て いる 位置 か ら 2 バイ ト を クリ ア し た 後 , 

D レ ジス タ に 「 行 の 長 さ プラ ス 5」 の 値 (すなわち "リリ レ ジス タ の 値 " マ イナ 
ス $ 0 3 3 A」 な る 値 ) を 計算 し ,(D9 :DA) に ' テ キス トバ ッ フ ァ 先 頭 番地 
マイ ナス 1 」 の 値 を 格納 し て 呼び 出し 元 へ リターン (RTS) する . 

| WORK | (D9 : DA) 一 一 テキ スト バッ ファ 先頭 マイ ナス 1 (=$3 3B) 


※ 1 行 翻 訳 ル ー チ ン の 出力 情報 の 一 つ で す . 


まず ,、「CLR , U+」 を 2 回 続け ます . すなわち , 行 の 終り の N 
U 革 工 が 分 岐 に 先立っ て 格 約 さ れ て いま す の で これ と 合わ せ て , 最後 に も 0 0 が 
3 つ 連 な る わけ で す が , これ は , ダイ レク ト 実 行 の 際 に 実行 を 止め る た め の も の 
で テキ スト エリ ア 内 の プロ グラ ム で あれ ば , リン クボ ポイ ンタ が 格納 され る べき 筒 
用 で す 。、 (ここ に 。 お 0000 以 人 ル の ヨコ ヨード が 人 る と ,。 イ シン クフフ リク が ! ま だ アロ 
グラフ ラム が 続い て いる 」 人 
例え ば , MON コ マン ド で モニ タ に 入る 場合 , $ 0 3 3 C か ら の 内 容 を 見 て み ま 
す と 必ず ,。 YMONY の 中 間 コ ー ド $A 2 の 後に も 0 0 が 3 つ 続 いて いる の が わ 
か り ま す . 

この 後 , U の 値 を D レ ジス タ に 転送 し 「SUBD ##$0O 3 3 A」 で ,「 行 の 長 
さ 寺 5」 の 値 を 計算 し ,「$ 0 3 3 B」 を レジスタ お よび (D9 : DA) に 格納 
し て , RTS 命 令 で 呼び 出し 元 へ リタ ー ン し ます . 


し [4] 入力 チェ ッ ク 部 
| アド レス | $C2D7 一 $C2E0O (10 バ イト ) 


機能 | A レ ジス タ に 入っ て いる コー ド が 。 $80$FF の 午 囲 に ある と 
き Syntax Xrror を 発生 (も 9 2A0O へ 分 岐 ) させ る . た だ し , 外部 ファ イル か ら 


SO 


読み 込み プロ グラ ム で ある 場合 は , エラ ー は 発生 せ ず 。 A レジ スタ の 値 を 無視 
し て [2] へ 戻り 。 次 の 読み 込み を 続行 する . それ 以外 は [5] へ 進む . 
(0 0BF)= か 


外部 ファ イル か ら の 入力 時 00 以外 の 値 


[5] Y? マ ラマ PRINTY 中 間 コ ー ド ($B 9 ) 変 換 部 


| アド レス | $C2E1 - $C2E9 (9 バイ ト ) 
機能 | A レ ジス タ の コー ド が クエ スチ ョ ンマ ー ク " ? Y($3F) で ある 場 
合 , これ を YPRINTY の 中 間 コ ー ド ($B9) に 変換 し , 格納 し た 後 [2」 


へ 戻る . それ 以外 の 場合 は [6| の $C2E9 番 地 へ と 進む . 


[6] 注釈 文字 列 ・ 文 字 列 定数 処 理 プ ロッ ク 


$C2E9 一 $C2FF (23 バイ ト ) 

機能 | $C2E9 か ら 入 っ た 場合 , A レジ スタ の コー ド が , シン グル ク ォ 
ー テ ーション マー ク " "(も 2 7) で ある か どう か を 調べ , そう で な い 場 合 は 
次 の |7」 へ と 進む . シン グル クォーテーション マー ク だ っ た 場合 に は まず , コ 
ロン (3A) と シン グル クォーテーション の 中 間 コ ー ド ($8D) を 格納 し , 

後 の 文字 列 を 注釈 文字 列 と し て , 入力 行 の 終り まで (つま り , $ 0 0 が 出 て 〈 く る 
まで ) 格納 し 続け る . 一 一 コロ ン の 自動 挿入 の 意味 …… 解 読 実 行 部 参照 一 一 

ーー 方, も $C2FC か ら エ ント リ す る の は , 引用 待 * " マ で くく られ た 文字 列 
定数 が 続く 場合 で 。 も う 一 度 , 引用 待 * "* が 出 て くる か , 行 の 終り まで 一 連 の 
文字 列 定数 と し て 格納 し 続け る . この 際 , 終了 判定 補助 レジ スタ と し て (6 0) 
が 用 いら れる . 

|WORK | (6 0)= 注 釈 文字 列 処 理 $ 0 0 : 文字 列 定数 処理 時 $22 


L7」 & 定 数 処理 ブロ ッ ク 


| アド レス | $C300 一 $C314 (21 バ イト ) 


機能 | A レ ジス タ の 内 容 が *"&" ($2 6) で あっ た 場合 , & 定 数 と し て , 


S1 


以下 数 字 が 続く 限り その まま 格納 し て いく 〈 (この 際 , 間 に 空 白 * "が 入っ て も 
その まま 格納 し て 処理 を 続け る ). そ う で な い 場 合 は , | 8 | へ 進む . 
IS U り Bl| $950 ie (A レジ スタ 中 の 文字 コー ド が 数 字 の 
合 は キヤ ャ リーフ ラグ を クリ ア , それ 以外 の 場合 は 
二条 あ に 泊 に 


[8] 数 値 定 数 の 女 理 プ ロッ ク 


| アド レス | $C315 一 $C359 (68 バ イト ) 
A レ ジス タ の 文字 コー ド が 数 字 ($ 3 0 一 $ 3 9 ) で ある 場合 に , 
以後 に 続く 散 字 列 (数 字 [お よび 1 つま で の 小数 点 ,。YDY, YEY| の な ら び の) 
を 数 値 定数 と し て , 定数 表現 の 中 間 言 語 に 変換 し て 格納 する . 数 字 で な い 場 合 は , 
次 の [9] へ 進む . 
| WORK | (D9 : DA)= 変 換 し よう と する 数 字 列 の 先頭 番地 一 1 
($B50B ロ ルー チン で ポイ ンタ と し て 使用 ) 
(7 4 7 C)= ニ FAC1 ($B5 0 B ル ー チ ン の 変換 結果 の 数 値 が 
格納 され る ) 
(0 0 17) = ニ FAC1 の 数 値 の 型 が 入る 
(整数 型 2 : 単 精度 型 4 : 倍 精度 型 8 と な る ) 
$9506 一 一 数 字 チ ェ ッ クル ー チ ン [14] 参照 
$B5 0B 一 … 文 字 列 数値 変換 ルー チン 
ゃ 8 597 一 うみ ブロ ッ ク 転 送 (B レ ジス タ て 示さ れる 回 数 だ け , 
(X+) 一 み (U 十 ) の 転送 を 繰 返 す ルー チン ) 


文字 列 き 数 値 変換 ルー チン $ B 5 0 B を 用 いて , 数 値 定数 の 文字 列 
を 中 間 言 語 に 変換 する ブロ ッ ク で す . 文字 列 き 数 値 変 換 ル シーナ ン $B5 0 B は 非 
常に 複雑 で す が , 使い 方 は 簡単 で す の で , 変換 し た いと 数 字 列 が 入っ て いる 科 所 
の 直前 の 番地 を ポイ ンタ (D9 :DA) に セッ ト し て 呼び 出す だ け で よく , 変換 
結果 が F A C 1 に , また だ た, その 数 値 型 が (1 7 ) に 格納 され て 戻っ て きま す . 
MR 
遇 6 「xx」 に は 数 値 型 を 表す 識別 子 (整数 型 の 場合 $ 0 2, MR 
。 倍 精 度 ea $ 0 8) が 入り ます . ここ で 注意 し な けれ ば な い の は 。 
ト が $ 0 0 と な る よう な 整定 数 。 すなわち , 0 一 25 和 7 4 和 ( 
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は 。 特に 「1」 や 「 半 」 の 指定 が な い 限 り , 1 バイ ト 節 約 し て 格納 され ます . 例 
1U よ 。 定 数 「 ] 2 6 」 (は 「F ド EE 0] 7 EE 」, 定数 1 9 6 」 人 「F ド ドド () 1 2 4 と な 
り ま す . な お , テキ スト 上 に は 負 定 数 は 存在 せ ず ,。 「 一 7 」 な ど は 正定 数 "7 」 
に 単項 演算 子 「 一 」 が 付く も の , と し て 評価 され ます . 


[9] コロ ン ・ セ ミコ ロン 検出 部 


$C35A 一 $C365 (12 バ イト ) 


機能 | A レ ジス タ の コー ド が コロ ンマ :Y で ある 場合 は , 格納 し た 後 ,「 1 ] 
に 戻り ,(6 1),(6 2),(E7 : ビ 8) を クリ ア し て 次 の 文字 へ と 進む . また , セ 
ミコ ロン : YY で ある 場合 に は 格納 し て 次 の 文字 へ 進む . 


解 説 | コロ ン は 。 1 つの ステ ー ト メン ト が 終わ る こと を 示す 区 切り 文字 で 

久生 IE デス トバ 
ッ フ ァ に 格納 し た 後 , 変数 名 綴り 内 フラ グ ・DATA 文 中 フラ グ ・LIS 工 用 キ 
ー ア ドレ スレ ジス タ の 3 つ を すべ クリ ア し た 後 。 次 の 文字 を 続 み 出し ます . 


[10〕 人 閣 形 キ ー ワ ー ド サー チ 部 


$C366 - $C38A3 (6 2 バイ ト ) 
機能 | 読込 み ポ イン タ X で 示さ れる 位置 か ら の 文字 列 と , $C6ED~ 
$C72F (省略 形 キ ー ワ ー ド テー ブル ) に 収め られ て いる 省略 形 キ ー ワ ー ド 群 
と を , ビリ オド を 区 切り と し て 順次 比較 し て いき , 一 致し た 場合 は その 中 間 コ ー 
トド を 読み 取っ て テキ スト バッ ファ の 次 の 位置 (U り レジ スタ で ポイ ント され る ) へ 
格納 する . 一 致す る 文字 列 が 無い 場合 は , ポイ ンタ X を 元 の 値 に 戻し て ,[1 1 
へ 進む . 
「A ニ イン プッ トバ ッ フ ァ か ら 読 み 込ま れる 文字 

Bー 各 キー ワー ド の 中 間 コ ー ド 

| X = 読込 み ポ イン タ (イン プッ トバ ッ フ ァ 上 の 読出 し 位置 を 示 

す ) 
Y = 省略 形 キ ー ワ ー ド テー ブル 上 の 位置 を 表す ポイ ンタ 
U り = 書込み ポイ ンタ (テキ スト バッ ファ 上 の 格納 位置 を 示す ) 


8J 


S ニ スタ ッ ク 領 域 は , 読込 み ポ インタ X の 退避 用 お よび , 文字 列 
の 一 致 判定 の 際 の 作業 用 レジ スタ と し て 使用 され る . 


な し 

解説 | まず 入口 で ,。 ポイ ンタ X を 上 既に 読み 込ん で し まっ た 1 文字 分 だ け 戻 
し た 後 。Y に $C6ED を 入れ ます . $C6ED 一 $C7 2F の キー ワー ド テ ー 
ブル に は 。 次 の よう に 省略 形 キ ー ワ ー ド と その コー ド が 入っ て いま す . 


番 地 内 容 意 味 
$C6ED 47, 4F, 2E, CD YGOY お よび 「T0」 の 中 間 コ ー ド 
C6ED 47。 4F, 53, 2E, CE YGOSY お よび 「SUB」 の 中 間 コ ー ド 
C6F6 52, 2E, 8 8 YR Y お よび 「RUN」 の 中 間 コ ー ド 


YWY お よび 「WIDTH 」 の 中 間 コ ー ド 
C72D 57。. 2E. AO 


この テー ブル 上 の 文字 列 和 群 と, ポイ ンタ XX 上 の 文字 列 と を 一 文字 ずつ 比較 し て 
ぃ いく わけ で す が , 文字 列 同士 の 一 致 判定 は 次 の 図 2・3・6 の 手順 で 行い ます . 
この 際 ,. ポイ ント と な る 命令 は ,「CLRA:PSHS XX, A」 と 「ORA,S: 
STA , S」 お よび 「LDA , S 士 」 の , 5 つの スタ ッ ク 操 作 命令 で す . 6 
809 は Z8 0 な ど と 美 な り , スタ ッ フ 主 域 を アク セス する の が 非常 に 容易 で あ 
る た め , この よう に スタ ッ フ 上 に アキ ュ ム レー タ の 代わ り と な る よう な 領域 を 確 
末 し 演算 操作 を 行う . と いっ た 手法 が 非常 に 効果 的 と な り ま す . 
スタ ッ ク 傾 域 を 使用 し て いる た め , この ブロ ッ ク で は 他 に 特別 な が ワー クエ リア を 
必要 と し ませ ん . 


凶 2・3・6 省略 形 キ ー ワ ー ド の 一 致 判定 の 様子 


っ ポイ ンタ を イン クリ メン ト し な が ら 一 


LDA。 X 十 47 4F 2E(GO.) 47 45 54 (GET) 
SUBA, Y 一) 47 4F 2E(GO.) ー) 47 4F 2E(GO.) 
OO 00 00 00 F6 26 レ 
すべ て の QR を と る - 還 
3 | ン 。 1 ビッ To で を D) | 4 ビリ オド か 出 た 所 で 


れ は ば は セ ゼロフラグ クリ ア /|F6 | ー 呈 打ち 切る 


ゼロ フラ グ が 立っ て いれ ば ゼロ フラ グ が 立っ て いな けれ ば 


ー 致 不一致 
ポイ ンタ Y の 番地 か ら 中 間 コ ー ド を 最終 アド レス (C730) で な けれ 
B レ ジス タ に 読み 込む ば 次 の 文字 列 比 較 へ 


64 


ここ で , 注意 し て お きた い の は ,「GCO.」 ま た は 「GOS.」 が 発見 され た 場合 で , 
この と き は 「87。 CD (YGOY と YTOY 中 間 コ ー ド )」」 もしくは 「8 7, 
CE (YGCOY と YSUBY)」 を 2 バイ ト 連 続 格納 し た 後 ,[1 7 」 の 行 番号 処理 
ブロ ッ ク へ 分 岐 し ます 。 それ 以外 の コマ ンド の キー ワー ド で ある 場合 は 中 間 コ 
ー ド を A レ ジス タ に 蓄え て ,[1 3] 内 の コマ ンド 後 処理 剖 ($C4 5 7) へ と 進 
み ま す . 「 

な お 。 図 に は 示し て あり ませ ん が 。 イン プッ トバ ッ フ ァ か ら 読 み 込 ん だ 直後 , 
| 1 4] 内 の 小娘 字 き 大 文字 変換 ルー チン ($C4 9 5) に よっ て , 英 小文字 は 大 
文字 に 変換 し て か ら 比 較 を 行い ます . 

有朋 略 形 キー ワー ド が 見 つか ら な か っ た 場合 は , ボ ポイ ンタ XX の 値 を 元 に 戻し て か 

ら , 次 の [1 1 | へ 進み ます . 


し 1 1〕 記号 予約 語 〔 十 , 一 , *※ な ど 〕 サ ー チ 処理 部 


I 


| アド レス | $C8A4…ー$C3D0O (45 バ イト ) 
ポイ ンタ X か ら A レ ジス タ に 読み 込み , 英字 で あれ ば 次 の [12」 
の キー ワー ドサ ー チ へ と 進む 一 方 , それ 以外 ( 英 記号 ) の コー ド の 場合 , 記号 予 
語 [ 十 。 一 ,。 ま ※。 グ ,。 八 。 \,。 >。 三 。 < の 9 種類 | で ある か どう か を 調べ 。 
記号 予約 語 で あれ ば , それ ぞ れ の 中 間 コ ー ド に 変換 し て 格納 する . 予約 語 で な い 
記号 の 場合 に は その まま 格納 する が , コン マ 『Y ,。Y で あっ た 場合 。 L 1ST 処 理 
用 レジ スタ (E7 :E8) を 調べ , 読込 み ポ イン タ X と 一 致す れ ば , LIST コ 
ンド に 付加 され る 行 番号 オペ ラン ド を 処理 する た め に [17| の 行 番号 処理 ブロ 
マッ ク へ と 分 岐 す る . それ 以外 は , 次 の 読み 込み を 続け る た め に [2]($C2 9 
C) へ 戻る . な お , 処理 中 は 続 込み ポイ ンタ X と 書込み ポイ ンタ U は 退避 させ て 
お く 〈. 
(E7 :E8)= ニ LIST・LLIST 行 番号 処理 用 キー・ ア ドレ ス 
客 紹 レジ スタ |20」 参照 
$C4 9 0 一 アル ファ ベッ ト テ スト ルー チン 
(同時 に , 英 小 文字 っ 大 文字 変換 も 行う ) 


解説 | ポイ ンタ X で 示さ れる 箇所 に 入っ て いる コー ド は 数 字 で は な い の で 
(数 字 は |8| の 段階 で 選 り 分 けら れ て し まう ), 人 
と いう こと に な り ま す . ここ で , 英文 字 の 場合 は 〔1 2 ) 以下 の 予約 語 サ ー チ へ 


SO 


回 し ます が , 記号 の 場合 は 演算 子 か どう か を 見 究め , 演算 子 記号 (これ も 予約 語 
で すか ら 妥 注意 ) で あれ ば 中 間 コ ー ド に 変換 し ます . この 際 に 参 周 さ れる の が , 
4 1 


ゅ し じ 407 一 $C4 谷地 に 置か れる , 下 図 の よう な 対 応 テー ブル で す . 
和 地 寺 0 填 1 

$CH107 2 B(Y+Y) 一 D9( マ 上 の 中 間 コ ー ド ) 
Cl109 2 D(*_- マ Y) DA(Yー マ り ) 4 】 5 C(YY マ ツーE 4 (*\ マ の 中 間 コ ー ド ) 
CI10B 2A(Y*") DB("** / ) C413 3E(Y>)-E5( ツ "> マッ ) 
CE0D アリ MM 4 / ) SL 唐 3D)(" ツ ニード 6( マ ニャ ガ ) 
C40F 5 E(*^Y) DD(Y^ マ り ) C417 3 C(" く < マ )ーE7( マ < マ  / ) 


さて , 記号 (も し く は その 中 間 コ ー ド ) を 格納 し た 後 は ,[2」 へ 戻っ て 次 の 文 
字 の 処理 を 繰り 返し ます が , 格納 し た 文字 が コン ママ , Y で ある 場合 に は , 特別 
な 処理 を 加え る 必要 が あり ます . それ は ,「L TST (も し く は , LL TST)“ フ 
ァイル ディ スク リプ ブタ” 。 行 番号 1 [ ( 了 } 行 番号 2」」 と いっ た 形式 の 場合 , 。 

の あと の 数 字 列 を 行 番号 定数 と し て 扱う た め に 必要 と な る 処理 な の で す が , 詳し 
く は [20| の 方 で 説明 し ます . 


[12] 基本 予約 語 サ ー チ ブロ ッ ク 一 一 予約 語 検索 ・ 第 1 弾 一 一 


本 ンー $C406 (54 バイ ト ) 

機 能 | 読込 み ポ イン タ X が 指し 示す 位置 か ら 始 まる 文字 列 を , 基本 予約 
7 
:・SGN, |I NT など 4 3 種 の 関数 名 が これ に 当たる ) の キー ワー ド り と 比較 
し て , 一 致す る も の に つい て は 対応 する 中 間 コ ー ド に 変換 し て AccA に 入れ [1 3」 
内 の 後 処 理 部 (も C4 3 3 も し 〈 く は $C450) へ 進む . 基本 予約 語 と 一 致し な 
い 場 合 に は , 拡張 予約 語 サ ー チ ブロ ッ ク [131($C4 1 9 ) へ 進む . 

$C 4 9 5 一 つ 英 小文字 っ 大 文字 変換 ルー チン ([ 1 4] 内 ) 


$01EF 一 $0216 の ワー クエ リア は , 表 2・3・1 の よう な 
テー ブル に な っ て お り , 現在 述べ て いる 1 行 翻訳 ルー チン は も ちろ ん の こと , 解 
読 実 行 ル ー チ ン や 1 行 逆 衝 訳 ルー チン ($C169-$C287 :LTIS 芽 処理 
糸 サ ブ プルー チン ) か ら も 参 照 され る , きわ め て 重要 な テー ブル で す . 
EN BASTC イ ンダ タプ リタ 
上 で の 予約 語 の 体 共 を 理解 する た め に 必要 不可 欠 な テー ブル で す の で , ここ に 掲 
較 し て お きま す . 


SO 


表 2・3・1 ワー クエ リア 上 の テー ブル $ 0 1EF^ー$0216 の 様子 
(DDISK モ ー ド の 時 


…MOD,。 \. 
…,E3,。 E4, E5, E6, E7 
ABS, FRE, …,TIME, DATE 
|FF80, FF81, FF82,FF83, …,FFA9。FFAA 
| $736F | DSKINI, DSKO$,。 NAME, FIELD、LSET, RSET | 
| 2 ル ン | $E9, E8, EA, EB, EC, ED 
DSKF, CVI, CVS, …,LOC, DSKIS 
FFAB。 一 AC。 一 AD。…。ーB2。 一 B3 
CHAIN. ERASE LLIST. LPRINT SOUND- PLAY 
EE, EF. F0. F1. 2 9 
| LPOS の み 
| SFFB4 


" mm _ FOR。 


の エン トリ 番地 


| ・ $92A0 は Syntax Error 


再 拡張 用 
キー ワー ド 


| SGN。 NT TIME。 DATE 
(43 種 類 ) 


ダミ ー コ | ・$801D は , DISK 関 係 の キー ワー ド が ROM 時 の テ 
ー ド お よ | キス ト に 用 いら れ て いる 場合 に LIST を と っ た 際 。, 
| レロ 』 4 mi | 
び CHAIN 7] | に を 出力 する た め の ダ ミー テー ブル の 1 
以下 の 分 | ・$805A, $8077 は 下段 の コマ ンド な どの 処理 ルー チン | 
岐 用 処理 | CHAIN。ERASE, eee ,SOUND, PLAY 
2 (6 種類 ) 
先 員 番地 


| (1 種類 ) 
| 0200 | soooo | sgzAo | 
$0000 | s92Ao | 


1 


答 ク ラス の キー 各 キ ー ワ ー ド 織り 文 各 処 理系 の エン トリ 番地 の ある ジャ ンプ テー ブル 先頭 
ワー ド の 個数 が 字 列 テー ブル の 先頭 も し く は , 各 処 理系 へ の 分 岐 を 行う た め の 命 令 が 書か 
入る 箇所 番地 が 入る 箇所 れ た 処理 ルー チン の 先頭 アド レス が 入る 箇所 
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基本 子 約 語 の 数 は , 先程 |1 1 | で 選 り 分 けた 演算 子 記号 を 除い て も 138 種 
と 非常 に 多く , 省略 形 キ ー ワ ー ド の よう に 全て の 文字 列 と 比較 し て いる と 大 変 み 
時 間 を 妥 し ます の で , まず , 頭 文字 ご と に 仕分 けし て か ら サ ー チ し ます . それ は は , 

「 頭 文字 の アル ファ ベッ ト に よる 見 出し 」 一 み 「 ア ルフ ァ ベ ッ ト 別 索引 」 一 一 

ー み 「 キ ー ワ ー ド 級 り 文字 列 テ ー ブ プル (辞書 の 見 出し 語 に 当たる )」 
ei 
あ 行 | と か | か 行 ある い は と いっ た 見 出し に 従っ て 具 を めく っ て 位置 
の 見 当 を つけ ます . 次 に , Ei 背 順 ある アル フッ ベッ ト 順 に 目的 の 言葉 ( 児 
陸生 2 
ぃ いっ た 手順 を と り ま す . FM-ー7 の の BASIC イン タプ ブリタ も , 図 2・3・7 の 
よう な 見 出し 。 索引 , 文字 列 テ ー ブ ル の 3 ステ ッ プ を 踏み な が ら ,。 予約 語 の 検索 
を 行い ます . 

それ で は , 順 を 追っ て 説明 し ます . まず 

り レ ジス タ =$8D20+ (A レ ジス タ の 値 二 541) *: 0 


ee 


ー ブ 広宣 の 頭字 YA て の 増分 の 
ル 移 頭 符 } の 文字 コー トド ト 双 字 コー トド 計算 


に よっ て , 見 出し を 手織 り ま す . そし て き さ !/ 
Y レ ジス タテ (U リ レジ スタ の 指し 示す 釈 地 の 内 容 ) 2 バイ ト 
に よっ て ,「 索 引 の アル ファ ベッ ト 別 先頭 番地 」 を 読み 込み ます . 
9 Y, 乙 ) の 場合 は 基本 子 約 
寺 和 ' い として, 次 の [1 3 へ 進み 拡張 子 約 語 サ ー チ を 行い ます . そう で な 
谷 は 。 Y レ ジス タ の 指す 番地 か ら 再 び U り レジ スタ に 読み 込ん で , 組 り 文字 列 
1 
列 と 。 けり レジ スタ で 示さ れる 番地 に ある 綴り と が 一 致す れ ば ,「LDA $02, 
Y 」 に よっ て 中 間 コ ー ド を 読み 込む 一 方 , 一 致し な い 場 合 は , Y を 3 つ イ ンク リ 
メン ト し て 区 切り $'0 0 が 出る まで 同様 の こと を 繰り 返し ます (区 切り $ 0 0 の 
検出 は 「LDA ,Y :BEQ $C419」 で 行う ).$ 0 0 が 出 た ら , や は り 基 
本 予約 語 で は な いと し て ,[ 1 8 」 へ 進み ます . 

ー つ 注意 し て お きた い の は , 索引 テー ブル 上 に ある コー ド は 完全 な 中 間 コ ー ド 
で は な いこ と で $80 よ り 小 さい も の に つい て は FEF80 を 足し て や ら な い 
と 正式 な コー ド と な り ま せん . この よう に 頭 に $FF が 付い た 2 バイ ト の 中 間 
ー ド は 主として 関数 名 の コー ド で す が , INPUT($EFFEA6) や TIME 
FFA9),DATE ($FEAA) の よう な , コマ ンド 名 ・ 関 数 名 を か ね た 了 予約 

語 も 合 ま れ て いま す . 


SS 


図 2・3・7 基本 予約 語 サ ー チ の 様子 


(① 見 出 し ( 頭 娘 字 の アル ファ ベッ ト に よっ て 分 類する た め の ア ドレ ステ ー ブ プル) 


番地 
$8D23 8B72, 8B85 , 8BB92, 8BCO, 8BDC, 8BFB, 6COB, 6C15, 8C1C 


還 融 回 較 回 回 回 回 
$8D35 0000 8C32 8C39 8C55 , 8C65, 8C6F , 8C7F, 0000, 8C9E 


| 由 回 MM 0 四 器 還 


$8D47 8CBD 8CEB 8D04 8DOE, 8D15, 8D1F, 0000, 0000. 
SI 四 細 っ 較 M 了 図 症 EE 


② 索 引 / 頭 文字 の アル ファ ベッ ト 毎 に 分 か れ て , 文字 列 ア ドレ ス ( 2 バイ ト ) 
十 中 間 コ ー ド ( 1 バイ ト ) と いう 並び が 続く 。 た だ し ,$80 以 下 の コ ー 


ド は , 2 バイ トコ ー ド で あり , この 値 に $FF80 を 加え て や る こと に | 


よっ て 中 間 コ ー ド を 生成 する . $00 は 終り を 示す 区 切り . 


$8B72 8908, 9D : 8A17,。 DE : 8A32。 02 ! …… : 8AA5, 21 : 00 
IA| (AUTO) ( AND ) (ABS ) (ANPORT) (区 切 ) 
$8885 8972, B4 : 89CD, C7 : 89D3 ・ 89D7. C9 : 00 


IB| (BEEP) (BUBINI) (BNBW) (BUBR) (区切) 


$8D1F 8A1C, EO : 00 
IX]  (XOR) (区 切 ) 


中 間 コ ー ド の 若い 順に , 予約 語 綴り が 並ん 人 で いる . 

| また , 各々 の 綴り の 区 切 を 明確 に する た め に , 各 綴 り の 最 
後 の 文 字 コ ー ド に は $80 が 加え て ある . 

$8890 45, 4E, C4 [END( 中 間 コ ー ド $80)]〕 
$8893 46, 4F, D2 [FOR( み  $81)] 
$8896 4E, 45, 58, D4 [NEXT( /  s$82)] 
8 」 」 


③ 綴 り 文 字 列 
テー フル 


$8908 41, 55, 54,CF [AUTO( みみ  $9D)」 Ei 
お よび 

6 ーー 演算 子 名 

$8972 42, 45, 45,。 DO [BEEP( みみ  $B4)]] 

① 

$8A2A  BD(3D+80) [マミ Y( みみ Ss ゃ E6)〕 

$8A2B BC(3C 二 80) に YSY( 。 グ 所 の )) 

$8A2C 53. 47, CE [SNG(  / s$FF80)] 

電 49. 9 D4 [INT ( $FF81 ) | 大隊 数 る 


$8AD5 44, 41, 54, C5 [DATE(  / $FFAA)] , 
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さて , 読み 込ん だ 中 間 コ ー ド が 1 バイ トコ ー ド ($80- 世 7 ) で あっ た 電 合 
に は ,[1 3」 内 の コマ ンド 後 処 理 部 ($C4 4 3) へ 分 岐 (中 間 コ ー ド は A レ ジ 
スタ に 持っ だ まま で ) し ます が , 2 バイ トコ ー ド ($FEF80-ーFFAA) の 場 
合 に は 後 処理 は 必要 あり ませ ん の で その まま 格納 し て (た だ し , 実際 に 格納 が 行 
われ る の は [13 内 の $C450-ーC456 番 地 に お いて で す が ), 次 の 文字 の 
処理 を する た め に [2 | へ 戻り ます . 


(13〕 拡張 予約 語 サ ー チ ブロ ッ ク 一 一 予約 語 検索 ・ 第 2 弾 一 


$C419 一 $C48F (119 バ イト ) 
| 機能 | 読込 み ポ イン タ X の 指す 位置 か ら の 文字 列 が , 拡張 キー ワー ド (D 
1SK モ ー ド の 場合 は D1SK 用 拡張 キー ワー ド も 含む ) で ある か どう か を 調べ , 
キー ワー ド で あれ ば , その 中 間 コ ー ド を A レ ジス タ 内 に 生成 (2 バイ トコ ー ド の 
場合 に は B ロ レジ スタ に $ ゃ FF が 入り , 両者 を 連続 格納 し て し まう ) し て , 各 コ マ 
ンド の 後 処 理 を 行う . 一 方 , キー ワー ド で な けれ ば , 変数 名 色 り 内 フラ グ (6 1) 
を セッ ト ( COM $6 1 」 に よっ て 反転 し て も や FF に し て いる ) し て か ら , 次 
の 文字 の 読み 込み を 行う べく ,|2| へ 戻る . 
(5F)= 2 バイ ト 中 間 コ ー ド *YFFX メ "指定 フラ グ 

(6 0 )= ニ 中間 コー ド 作 成 用 レジ スタ 

(6 1 ) ニ 変数 名 弘 り 内 フラ グ 

(6 2)= ニ DATA ム 文中 指示 フラ グ 

$01EF-$0216... 表 2・3・1 参照 
|「S UB| $C490 一 つ ア ルフ ァ ベ ッ ト テ スト ・ ル ー チ ン 

($C4 9 5 一 ご 小文字 き 大 文字 変換 ルー チン を 含む ) 


拡張 予約 語 サ ー チ の アル ゴリ ズム は 少々 難し く な っ て いま す の で 」 
図 2・3・8 に よっ て 大 体 の 流れ を 握 ん で いた だ く こ と に いた し まし ょ う . 図 は 
DISK モ ー ド 時 の 様子 を 表し て いま す が , ROM モ ー ド 時 で も 手順 は 全く 変わ 
まん 2 

まず ,(5F) を クリ ア し て (60) に $E8 (DSKTIN1 の 中 間 コ ー ド ) を 
入れ , U リ レジ スタ に $0 1F 9 を 読み 込み ます . また だ た, B レ ジス タ は 比較 すべ き 
紋 文字 列 の 個数 を 表す カウ ンタ と し て 用 いら れ , 一 回 の 比較 が 終わ る 度 に デ ク 
リ メ ン ト [同時 に (6 0) は イン クリ メン ト |] され て いま す . サー チ は , 
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①,。 DSKINTI-ーRSET (コー ド : $E8ーED :U=$01F9) 
②, CHAIN-ーPLAY (コー ド : $EEー ド 3 :U リ =$0203) 
③, DSKFE-DSKIS (コー ド : $FEABーB3 :U=$O 1EFE) 
④, LPOS (中 間 コ ー ド :$FFB4 :U=$0208) 
の 4 つの ステ ッ プ に 分 か れ ま す が , カウ ンタ B の 値 が 0 に な る 毎 に 次 の ステ ッ プ 
に 進む わけ で す . また , 途中 で X 上 の 文字 列 と Y 上 ( 図 参 照 ) の 文字 列 が 一 致 し 
た 場合 , その 時 点 で の (5F) と (6 0 ) が 中 間 コ ー ド を 与え て くれ る の で す . 


図 2・3・8 拡張 予約 語 サ ー チ の 様子 (DISK モー ド 時 ) 


B 三 0 と な っ た RE 


りーU 二 10 


り レ ジス タ が て Ph ー$00 、 U〒%O1FE の ET 人 
示す 順 答 」 し (60)=$E8 (60)= SAB:(5F ) 反 封 | (し (60)=$EE し (60)=$B4 


01F9 ※( 十 1) 。 (3) 01FE (+1)※ ( 二 3) 0203 (+1)  (+3) 0208 (+1 (+3) 
06. 7314. 736F. 09, 733C, 7386. 06, 8030. 805A, 01, 8071. 8077 


YS ROM 時 
」 W 

か シグ し て 文字 列 テ ー ブ ル 
ロレ ジス タ に ポイ ンタ と し て ヤレ ジス タ に 


(LDB, U) (LDY $01, U) 


テー ブル ボイン タ (Y レ ジス タ ) ユー ルーキー トー 
(7 3 1 4 44 53, 4B,。 49, 4E,C9, |: 44, 53,。 4B、4F。 A4 : … 」 52。 53. 45, D4 
( 計 6 種 ) D S K | N JI D S K OO $ R _ S ET 
DISK 用 コマ ンド 名 $》 
(Y) 一 ふみ ………ー 
28030 43,. 48. 41, 49。 CE : 45,。 52。 41、53.C5 | …… | 50. 4C, 41。D9 


( 計 6 種 ) C HH A | N E R A S E P L A Y 
(拡張 コマ ンド 名 ) 
(Y ) の 

3733C 44, 53, 4B、C6 : 43.56,C9 : 43, 56.D3 :…| : 44. 53。4B。 49. A4 

( 計 9 種 ) D S K F C V Il C V S D S K | $ 
DISK 関 数 名 ) 


805A 4C。 50. 4F, D3 
(1 種 ) -L P Q S 
拡張 関数 名 


ROM モ ー ド の 場合 , 上 図 の ※ を 付け た 場所 に は $ 8 0 1D が 入っ て いま す . 
そし て , $ 801D 一 80 2 5 は 次 の よう な ダミ ー コ ー ド テー ブル と な っ て いま す . 

801D AO0 iAO0 iAO i… ijiAO 【$A0O が 計 9 個 入っ て いる 」 
この $A0 と いう コー ド は , 空 折 YY マ の コー ド $20 に $8 0 を 足し た も の で 
あり , 読込 み ポ イン タ X 上 の 文字 は 空 日 で は あり 得 え な い ( 空 折 は [21] の 読込 
み 分 析 部 で 選 り 分 けら れ て 既に スキ ッ プ され て いる ) の で , 結果 的 に , $E8< 
ED お よび FFABーFFB3 の の DISK 関係 の 中 間 コ ー ド は 生成 され な いこ 
と に な り ま す 。. 


り 1 


な お , この ブロ ッ ク で は , 予約 語 検索 の 他 に 各 コ マン ド の 後 処理 を 行う 場所 が 
あぁ あります. また , 生成 し た 1 バイ トコ ー ド は , $C45 7 で 格納 し ます . 

$C443 一 C4 4 で は , A レ ジス タ に 生成 し た コー ド が $8F(YELSEY 

の 中 間 コ ー ド ) で ある か どう か を 調べ , $ 8F の 場合 に は ,。 コロ ンマ :Y$3A 
を 挿入 し た 後 (これ は 実行 時 に 必要 と な る 区 切 文字 で す ),$ も 8F を テキ スト バッ 
ファ に 格納 し て [17| の 行 番号 処理 ブロ ッ ク へ 進み ます (YELSE 行 番号 Y 
の 対策 )., そう で な い 場 合 は 。 $C457 へ 進み ます . 

ゃ SC450 一 C456 は , 2 バイ トコ ー ド が 生成 され だ た とき に , それ を 書込み 
ボ ポイ ンタ U の 指す 位置 へ 格納 し た 後 [2」 へ 戻る .、 と いう 処理 を 行う 部 分 で す . 

bpC457 一 じ 460 で は , 生成 し た コー ド が $⑧88("YDATAY) で ある か 
どう か を 調べ , $ 8 3 な ら ば 以下 に 続く 文字 列 が DATA 文 の デー タ で ある こと 
を 宣言 (すなわち , デー タ 文 中 フラ グ (6 2 ) を 立て る ) し ます . 

まだ , $C46 1 一 C4 6 7 て は , 生成 コー ド が $8C(YREMY) か どう か 
を チェ ッ ク し , そう で あれ ば ,[6 | の 注釈 文 字 列 処理 プロ ッ ク へ 分 岐 し ます . そ 
う で な い 場 合 は ,[1 5] の YGOY 後 処理 プ ブロック へ と 行き ます . 


| アド レス | $C490 一 $C49F (16 バ イト ) 
まず , 英 小文字 大 文字 変換 ルー チン $C4 9 5 に よっ て A レ ジス 
タ 内 の コー ド が , 小娘 字 の 場合 は 大 文字 に 換え た 後 ア ルフ ァ ベ ッ ト チ ェ ッ ク ・ ル 
ー チ ン $9 4FD に よっ て , A レ ジス タ の コー ド が 英字 ($4 1 一 5A) で あれ 
は キャ リー セッ ト . それ 以外 の コー ド で あれ ば キャ リー クリ ア の 後 戻 る . 
$C49 5( 一 C4 9F) 一 つ 英 小文字 き 大 文字 変換 (内 包 ル ー チ ン ) 
※A レ ジス タ 内 の コー ド が 英 小文字 ($6 1 一 7 A) で あれ は , 
大 文字 ($4 1 一 5A) に 変換 : この ブロ ッ ク に 内 包 さ れ て いる . 
も 9 4FD 一 アル ファ ベッ トチ ェ ッ ク ・ ル ー チ ン 
これ に 関連 し て ,。 アル ファ ベッ トチ ェ ッ クル ー チ ン ($ も 94FD 一 9505) 
お よび , 数 字 チ ェ ッ ク ・ ル ー チ ン ($9506 一 950E) の ソー スリ スト を 掲 
げ て お きま す . 


ゃ 94FD CMPD 提 S41 テア A ッ pg5buUbp CMPA 530Y0 ツ 
BLO ゃ 9505 BLO psp 9 う 95 上 
SUBA せ S58 SUBA 5S3A 
SUBA SAS S ら UBA 半 $C6 

ゅ 旨 あ 邊 委 RT S ゎ ゅ 9 す 50 ヒ E RT S 
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L15〕] YGOY (中 間 コ ー ド $8 7 ) の 後 処 理 プ ロック 


「 アドレス | $C4A0 一 $C4DA (5 9 バイト) 

機能 | A レ ジス タ に 生成 され た コー ド が $87( ヤ GO) で ある 場合 , そ 
の 後に TOY マ また は YSUBY が 続い て いる か どう か を 確認 し て それ ぞ れ の 中 
間 コ ー ド (おぉ お CD また は $CE) を 付加 する . この 際 間 に 入っ た 空白 は その まま 
格納 する . YGOY の あと に YTOY も YSUBY も な い 場 合 に は 「Syntax 
Error」 を 発生 さき せる. な お , 格納 後 , 行 番号 処理 ブロ ッ ク | 1 7| へ と 進む . 
一方 , $ 8 7 で な い 場 合 に は ,[16」 へ 進む . 

$C 4 9 5 一 一 英 小文字 大 文字 変換 ルー チン 


$92A0 一 Syntax Error エ ント リア ドレ ス 


[16〕 行 番 号 参照 コマ ンド 選別 ブロ ッ ク 


$C4E6 一 $C507 (34 バイ ト ) 

A レジ スタ 内 の コー トド が 人 行 番号 処理 を 必要 と する コマ ンド の コー ド 
で ある 場合 ,[ 1 7]( あ る い は [19], [20]) へ 分 岐 する . 

それ 以外 の コー ド の 場合 は ,|2」 へ 戻っ て 次 の 文字 の 処理 を 行う . 


" | ます 。 次 ル ジン スク の コー ド が WBB (LISTUU DEO (EL 
IST), も し く は , $D3 (ERL) の , 特殊 な 行 番号 処理 を 必要 と する コマ ン 
ド の 中 間 コ ー ド で ある 場合 の 選 り 分 け を 行っ て . それ ぞ れ の 処理 系 |1 9] も し 
く は [2 0] へ 分 岐 し ます . 上 の 3 つの コー ド に 当たら な い 場 合 は 。 行 番号 参照 
コマ ンド コー ド テ ー ブ ル $C4DB-ーC4E5 (下図 ) の 中 の コー ド と 比較 し て 
ぃ いく こと に より 行 番号 参照 コマ ンド を 選別 し ,[ 1 7 ] へ 飛び ます . 


$C4 DB 9D 8 8 9 上 9 ヒ 8 B 9 9 に 8 上 貞 1 D 6 00 
(番地 ) (AUTO) (RUN) (EDIT) (DELETE) (RETURN) (RENUM) (RESUME ) (RESTORE) (UNLIST) (THEN) (終り ) 


どの コー ド で も な い 場 合 に は ,。 拡張 フッ ク $029F | 普段 は $39 (RTS) 
が 書か れ て いる ] を コー ル し て か ら .[21(SC2 9C) へ 戻り ます 


9J 


[17〕 行 番号 処理 ブロ ッ ク 


$C508 一 $C527 (32 バイ ト ) 

機能 | 読込 み ポ イン タ X の 位置 か ら 文字 列 を , サブ ルー チン [1 8] ( 

っ て 行 番号 定数 (も し く は ピリ オド 行 番号 ) に 変換 し て 格納 する . コン ママ , 
PMP 
処理 を 繰り 返す . 後に 続く 文字 が 空白 で も コン マ で も マイ ナス で も な い 場 合 。[2] 
の 途中 $C2A0 に 入っ て 次 の 文字 の 処理 へ 移行 する . 


| 解説 | RENUM コ マン ド を 実行 する と テキ スト 中 の 行 番号 も すべ て 改め 
られ ます が , これ を 行う た め に は , GOTO, RESTORE な どの よう に 後ろ 
に 行 番号 が 続く べき コマ ンド 守 行 番号 が 続く 可能 性 の ある コマ ンド に つい て は , 
定数 を 普通 の 数 値 定数 と 区 別 す る 必要 が あり ます . そこ で ,[1 6 」 に よっ て , 行 
ii に 持つ コマ ンド を 選別 し て , 後に 続く 数 字 の 並び (また は 

リオ ド ) を 行 番号 定数 と し て 特別 扱い し , 頭 に 識別 子 SFEF 2 を 付 し て 格納 
する わけ で す (ピリ オド の 場合 は その まま 格 約 し ます ). 識別 子 SFEF 2 は, 各 
コマ ンド の 構文 チェ ッ ク に も 用 いら れ ま す . 

ピリ オド トド 行 番号 は , 直前 に 編集 ・ 修 正 な ど を 行っ た 行 番号 の 代用 と し て 重 生 
2 導 8 本 名 控 も 本 で 休 夫 講和 H ま 1 
7 ) と な っ て いま す (な お ,。 エラ ー の 了 際 は エラ ー を 起こ し た 行 番号 が 入り ます ). 


[18] 行 番号 定数 処理 サブ ルー チン 


| アド レス | $C528 一 $C56A (67 バ イト ) 
機能 | 読込 み ポ イン タ X の 位置 の 文字 が 数 字 の 場合 ($ 9 5 0 6 て 判断 ) 
9 1 6 2 ルー チン に よっ て 数 字 列 き 行 番号 変数 を 行い $ ぉ FEF2 を 付け て 格 
納 し て 戻る 一 方 , ピリ オド の 場合 に は その まま 格納 し て 戻る [この 際 , 数 字 列 も 
し く は ピリ オド の 前 に 入っ た 空白 は その まま 格納 | . ど ちら で も な いり 場合 は , ポイ 
ンタ X を 一 つ 戻 し て リタ ー ン する 。. 
(D 9 :DA)=$9 1 6 2 ルー チン に 対す る 入力 情報 
(4B:4C)=$9 1 6 2 ルー チン の 出力 情報 
|S UB| $9506 一 一 数 字 チ ェ ッ ク ・ ル ー チ ン (キャ リー フラ グ ) 
$9 1 6 2 一 二 行 番号 読込 み 作 成 ル ー チ ン 
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$9162 洒 条 和 Ni He 


X $D9 :JSR tyhhWee 了 hn 
は |18| る $B5 0 B 文 字 う 数値 変換 ルー チン の コー ル 前 と , ここ の 2 ヶ 
所 だ け で す . 

な お , 注意 し て お きた いこ と は , 行 番号 を 表す 文字 列 の あと に ビリ オド が 入っ 
て いて も 小数 点 と は 扱わ れず , 例え ば ,「GOTO 20. 5」 と 書き 込ん だ 場合 , 


LIST を と る と ,「GOTO 2 0 ご こ 」 5」, と 必ず 空白 を 挿入 し て 向 告 を 発し ま 
す (この 処理 を 行う の は , $C55A~-$C561). 


[19〕] YERLY の 後 処理 ブロ ッ ク 


SC56B 一 $C59B (4 9 バイ ト ) 

E| "ERL? マ の コー ド の 後に 比較 演算 子 (>, 三 , < く ) が 続い て いた 
場合 に は ( 間 に 空 白 が 入っ て いて も 構わ な い ), その 先 に 続く 文字 列 に 対し て サ プ 
ルー チン [18| に よっ て 行 番号 処理 を 施す . 比較 演算 子 が 続か な い 場 合 に は , 
何 も せ ず に [21($C2 9C 番 地 ) 戻る . 


| ERL 関 数 の 場合 「IF ERL= ニ >1890 THEN・………」 

ど と いっ た 使い 方 が 多く ,「ERL プ ラス 比較 演算 子 」 の 後に 続く 定数 が RE N 
生生 そこ で ,「ERL ブ ラス 比較 演 
算 子 」 の 後 の 数 字 列 を , 行 番号 定数 と し て RENUM の 対象 と な る よう に する の 
0 中 グ 選 ゆ し な お , RENUM の 対象 と し た く な い 場 合 は ( そ 


うい う ケ ー ス が ある 株 
1 8 お 9 りり ラテ 中 WAR 


て 更新 され な く な り ま す . 


[20] YLISTY, YLLISTY 後 処理 部 


"レス | $C59C 一 $C5E1 (70 バイ ト ) 
| YYLISTY,YLLIST" 後 に 引用 符 が 続く 場合 ( 間 に 空 白 が 
場合 ( 問 に 空 白 が 入っ て いて も よい ), 以後 の 文字 列 の 先読み を 行っ て , 引用 符 の 


が ) 


対応 や 左右 カッ コ の ネス ティ ング を チェ ッ ク し な が ら コ ンマ の 検出 を し , 地 の 文 
の コン マ で あれ ば , その 位置 を さす アド レス を (E 7 : ES8) に 格納 し て 12」 
($C2 9C) へ 戻る . 引用 符 が 続か な けれ ば ,[ 1 7] の 行 番号 処理 ブロ ッ ク へ 分 
岐 す る . 
「WORK | (6 9 )= 読 込み ポイ ンタ X の 一 時 退避 用 レジ スタ 

(D9 :DA)= 読 名 み ポ イン タ X の 一 時 退避 用 レジ スタ 


|S UB| $D8- 一 汎用 読込 み ル ー チ ン (空白 スキ ッ プ 付き ) 
II ST コマ ンド は 行 番号 定数 を オペ ラン ド と し て 持ち 得 ま すか ら 。 


後に 行 番号 が 続く 場合 に は 当然 [1 7 」 の 処理 を し な けれ ば な り ま せん . と ころ 
が 1LISNUD "( グ ァ イ ルディ スク リピ ビ ピッタ) 。、 和 有人 ぢ 」 と いう 作 に 。 問 に ラフ ティ 
ルディ スク リブ プ ブタ ( 後 、FD と 遇 し ます ) が 入る と いう 形式 も あっ て , 容易 に 
は 行き ませ ん . その FD も , 2 つの 引用 符 で 囲っ た 単純 な も の ば か り で あれ ば よ 
い の で す が ,。 クォーテーション で 始ま っ て さそ いれ ば 。 どん な 文学 列 式 で も 出 て 
くる 可能 性 が あり ます . 例え ば 

LIST “CASO:? 二 LEETS (AS 十 INPUTS (8).8) 

1000 一 2000 」 

と いう こと も 有り 得る わけ で す . 間 に 入 っ た 文字 列 式 に つい て は 今 ま で と 同様 に 
「2] [1 3 の ブロ ッ ク で 中 間 コ ー ド に 直し て や る 必要 が ある わけ で す が , 
その まま [2 | に 戻っ た の で は 行 番号 処理 を 忘れ て し まう 場合 が あり ます . そこ 
で , FM-ー 7 では, FD の 部 分 の 先読み を 行っ て お いて , 行 番号 処理 を 行う べき 
場所 に (EK 7 :E8) と いう 印 を つけ て お く の で す . 先読み は , 行 の 終り の EDU(N 
U 革 藍 =$00) が 出る か , 地 の 文 の コン マ を 発見 する まで 行わ れ , コン マ 発 見 
の 場合 は その 時 の 読込 み ポ イン タ の 値 を , 前 述 の 印 と し て (E7 :EE8) に し 
まい 込み ます . いずれ の 場合 に も , 読込 み ポ イン タ X の 値 を 先読み 前 の 値 に 戻 
し て か ら [2」1($C2 9C) へ 戻り ます . この 際 。 文字 列 定数 中 の コン マ や , カ 
ッ コ 内 の コン マ を 拾わ な いよ うに , 引用 人 符 の 対応 や , 左右 の カッ コ に よる ネス テア 
ィング の 様子 を チェ ッ ク し な が ら め 検 索 を 行っ て お り , この プ ブロッ ク の 大 半 は , そ 
の た め の プ ログ ラム で 占め られ て いま す . 従っ て ,「LIST CASO0: 十 ( 
150 一 40 0」 な ど と 行う と ,「150 一 400」 は は 行 番号 と し て 扱わ れ な いこ 
と に な り ま す (いずれ に し て も エラ ー が 出る の は 明らか で す /. 

また , 次 に 続く 文字 が 引用 符 で な い 場 合 に は , 間 に FD が 入り 込む こと は ぁ り 
ませ ん (文法 書 3. 1. 3 の | 形式 2] の 項 [3 一 8 ペー ジ | を 御 参照 下さ い ) 
の で , ポイ ンタ X の 値 を 元 に 戻し て , 直接 ,[17」 の 行 番号 処理 プロ ッ ク へ 分 岐 
し まず 。 
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00 方 、 (見 7 
くる だ た びに , 
人 再 す る と 同時 に ., 行 番 ? 


コン マ が 出 て 


ダ ), 


両 


ヨブ ノ *- 


・E 8) 


こ 先 程 の 印 を 入れ て 
ポイ ンタ X の 値 と 


[2 ] 以下 の 処理 を 続行 し た 場合 , 
(E7 :E8) の 値 と を 比較 する た 


処理 プロ ッ ク [1 7 ] へ 向かい ます (この 


判断 は 「 1 1」 の 内 部 の $C3C4 番 地 で 行い ます ) . 


EE で 、 


負 融 詳 ( ー 貞 . 


| = 


回 


SUB 文 に よっ て 実行 する 


FAGE 


0001 0 
000 ご 0) 
DO00 そ 
0O0 人 4 口 
0 コロ 
00 ら 0) 
①00) ア () 
(3 日 0) 
0 グロ 
(001 0 
0110 
(01 で O 
OO1 5 
01 4 
0) 1 呈 
DC) 1 
DO01 アア 0 
C) 1 日 け 
0 1 9 
OOD で OO) 
DU0 ど 1 
人 1 人 り 2 
ロロ で さ ロ 
0 の 4 
ロコ 
0 つら 0 
り D ビ ア ロ 
0 で 日 り 
D0 ロ 0 ジウ 
(は 3 けけ 
り け 310 
DD うど の 


りう うけ 


(1 ける 人 
O03 コ O 
OOD う らら 


1 


ら 600( 
6000 


らら 0 どど 


らら 00 人 4 
ら 60O ア 
ら 009 
ら 00B 
ら OE 
らら 010 
ら り 1 
らら 015 
ら 018 
ら り 1 牟 
1 し じ 
ら ロ ロト 
らら 0 
らら 0 全 和 4 
ら り ン ア / 
ら り ジワ 
ら 0 ジ CB 
ら 6 ロジ D 
ら 02F ト 
らら O マ で 
らら 0 ひる 和 4 
ら け うら 
ら り 3 日 
らら りう 月 
ら り うし 
らき さ ヒ 
らら 040 
ら O4 ど 
らら 4 人 4 
ら り 和合 ら 


(BE1EO1 。 


語 ル ー チ ン 


けけ. ふう ロー 中 ) 


DU 
1 (0) 
ら 100 


ら の ビア / 


ら 0 ン B 


1 行 訳 ルー チン の 解説 を 終わ り ま す が , 最後 に 
ます 。 LIN 臣 INPUT 文 で 読み 込ん だ 一 行 を 


注釈 文 と し て 領域 を 確保 し て お いた 1 0 0 0 0 行 に 格 


サン プル を 載せ て お き 
1 生 交 ルー チン に よっ て 中 
約 し ,。 GO 


と いう も の で す . 


CMDOOO 


CMDOOO 


じ MDOO1 


LUUF 


Na 
UFT 
URG 
し DX 
FGHS 
し DX 
LUDB 
し DX 
し 
ら 「U 
りら ド 
じ LR 
JR 
LERX 
PH 
LDD 
J ら ご ド 
BHIS 
JMF 
FULS 
LE 台 X 
LDR 
ら 「 中 
CMFU 
BNE 
PULS 
LDR 


CEMDOOG 
ME 。NUGEN 
も ら 000 
生 D 

1 
共和 ま ら 100O 
ぅ ス 十 

9 

井 生 人 4.D 
生 D ワ 

呈 日 ロマ ア BLLHC ド に ド -TFR 

| NLHLL ェ ツキ” UM モジ 

も じ ン 日 じ NE 一 LINE-TRNERaaT TUN 
も 〇 1 。 
回 。 拓 

攻 事 で 71 
中 日 F 1E 
半 十 王 

も 0 日 人 4 
箇 
是 け 人 。 


TNIEET デ BFFERー ビ ジャ ウリ 


LTITNE-NUMIBE ド 一 ER ビ H 
CMDOO 1 
Un ロ nf i ロ 選 dーL 1 ロロ 己 ーNULmD ロ ビー ロビ ビビ ロビ 


TE ビ EX エー ホッ タイ ーLN。 10000 


" ノ テ チュ ウ カ ン ケ * ンコ ^ 


++ ォ キ +En ロ nd of CMDOOG1 和み REuFn モロ カ 


イド ク ・ ジ シッコ ウル ー チ ン 
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旬 BAS1C プ ログ ラム 


10 人 n ま ="" ェ AZ=O ARD= を H6100 

2O LINETNFUT "コマ フト" ルリ つの "人 Q ま 

さり AZ=VaRFTR (人 Q*) 

40 PHEE AD。FEE に (人 AZ) 

50 FUKE AD+1 。PEEE (AZ+1 ) 

60 FUEE AD+ す 2 JFEEE (コメ ォ る) 

70 EXEC &H60OO 

BO _BHSUE 100oOO 

9O BOT 10 

で え メメ メス スス た ミミ メメ スル ミド メ メ スス スス オオ オオ オミ ミミ ミミ メメ メ ミ メメ ナナメ ナメ ナナ ナミ ミミ ミミ ミミ ミミ ミミ シア ミタ イミ ミミ ミチ 2 


LE 


間 生 間組 導入 
前 


「 半  .  . 


100 デ 0 RETURN 


@ 実 行 例 


Br 己 & ド 

ド Ra ロッ y 

RUN 

コマ フト "用 7 うさ う 。、141 コ 9 ウジ 6 ら 5/4 ュ メニ BIN(X)gFPRTNT 人 三 0 ョ 失 
X 三 ェ / ワ リア 10 ア 7 

コマ ッ ント” 月 デ 


BrFaE JIJn ど O 
ド ら 8d ロ ッ 


1 中 ま 三 " リョ メニ リョ 台 け 日 61 00 

2O LINEINFUT "リコ マフ トド ルド で 人生 

さり メニ VaARFTR ( 台 生 ) 

40D FUEE BD』。FEEER (AX) 

9 FUKE D+ す 1 。FEEK( 提 多 十 1) 

60 PUEE 月 D+ す 2 。PEEK (ナオ 2 ) 

7 EXE じ &H6000 

0 ロ UGSUB 10000 

90 BUTO 10O 

10000 ペデ ・ ユ オト コツ の つ 首 / す いく "orN(X)sFRTNT 2 2 IIISRRSo 22RoiIRIGINIdl RS 


F』 Ji 思 証明 _. 症 還 半 』 肖 旨 間 間 間 


「 症 還 生還. 
LE JE JE EE JE EE JE IE JE 


LE 間 昌 生 昌 昌和 


100 ジ ご O_ RETURN 


2 0 条 の LINEPU 和 WT 丈 の で 。 オー フアン シ と し だ た アア イル MG 放し て 人 条 つよ うに 
改造 すれ ば ,. ファ イル に アス キー セー ブ し た , 任意 の コマ ンド ・ ス テー トメ ント 
を 実行 さき せる こと が で きる な ど , 工夫 に よっ て 様々 な 応用 が 利く サン プル で す . 

な お その 際 , プロ グラ ム の 実行 に 先立っ て , CLEAR コマ ンド に よる マシ ン 語 
ルー チン 格納 エリ ア の 確保 と 。 マシ ン 語 ル ー チ ン (7 1 ベイ ト ) の 読込み が な 
れ て いな けれ ば な り ま せん . 


」 


り G 


(5) 行 番号 サー チル ー チ ン 


$S8F1C 一 $8F31 

希望 の 行 番号 を 持つ 行 を . テキ スト 上 で リン ク ポ イン タ を 辿り な が 

ら 捜 し あて , その 場所 の アド レス を XX レ ジス タ お よび (69 : 6A) に 入れ て 返 

す . 該当 する 行 番号 が な い 場 合 は , その 行 番号 より 大 き な 行 番号 が 出 た と ころ て 

その 人 行 の 位置 を 持っ て 帰る . 入力 し た 行 番号 以上 の 行 番号 が な い 場 合 は , テキ ス 

ト 最終 アド レス ー1 が 返さ れる . 

D, X, U, CC (特に キャ リー フラ グ が 問題 と な る ) 

サー チ し た しい 行 番号 を (4B: 4C) 〔 エ ント リ に よっ て は D レ ジ 
スタ の 場合 も ある ] に 入れ て コー ル す る . 

X レ ジス タ , お よび (6 9 : 6 A) に , 上 て 述べ た テキ スト アド レ 
ス が 入る . また , 該当 行 番号 の 有無 に よ に つっ て キャ リー フラ グ が 変わ 
り , な か っ た 場合 キヤ リー セッ ト : あ っ た 場合 キャ リー クリ ア と な る . 


解 ” 説 | テキ スト 作成 ルー チン を 初め 、GOTO 文 ,COSUB 文 な ど 行 番号 
の 参照 を 必要 と する コマ ンド の ほとん ど が この ルー チン を 用 いて , 参照 し た い 行 
番号 を 持つ テキ スト 行 の 位置 を 探索 し ます . 探し 物 が 発見 され た か どう か は キャ 
リー フラ グ に よっ て 示さ れる の で ,「Undefined Line Number 」 エ ラー の 発生 は 
キャ リー セッ ト を 見 て な され ます . 逆 に AUTO 処理 中 な ど で は , 自動 発生 し 
た 行 番号 が 発見 され た 場合 . その まま 書き 込み を 続け る こと は 不適 当 な ため , キ 
ャ リー クリ ア を 見 る と 直ちに AUTO 処 理 を 打ち 切り ます . な お , ある 特定 の 和 洗 
地 か ら サ ー チ を 行い た い 場 合 に は , サー チ 行 番号 を D リ レジ スタ , サー チ ナチ 開 始 竹 地 
を メレ ジス タ に 入れ て , $ も 8F20 か ら エ ント リ し て 下さ い . ソー スリ スト を 載 
せま す の で ,。 リン ク ポ イン タ の 重要 性 や フラ グ の 立て 方 を 参考 に し て 下さ い . 


$S8F1C LDD (4B: 4C) $S8F2D ORCC #$01 
LDX (33134) (キャ リー フラ グセ ッ ト ) 

S8F20 LDU 沙 | リン ク ポ イン タ =0 即 ち . $S8F2F STX (69:6A) 
BEO  。S8F2D | テキ スト 終了 な ら リ ター ン RTS 


CMPD $ 0 2 。 の 比較 [ 行 の 構造 

ィ ェ ーー Ed コ 和 FE 

BL S S8F2F 入力 行 番号 以上 間 吉 
な が ら リ ター ン 


人 +0 1 十 2 十 3 4 / 
B RA S8F20 リンク] | 行 番号 [本 体 ] 00 | リンク | … 
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(6) リン クボ ポイ ンタ 修正 ルー チン 


$C730 一 $C74E 
| 機 能 | BAS1C プ ログ ラム ・ テ キス ト の リン クボ ポイ ンタ の 正しい 値 を 付 
け て いく . な お , エン トリ に よっ て 修正 範囲 が 異な る の て で 注意 する . 
$C 7 3 0 一 テキ スト 全部 に つい て 修正 を 行う 
| A, B, X, U 


入力 情報 | $C7 3 0 エン トリ ーーX レ ジス タ に 修正 開始 番地 を 正しく セッ ト . 


$C732  〉/ 一 な し [強い て 言え ば , (3 3 : 34) に 
テキ スト 開始 番地 を 入れ る こと ] . 
復帰 情報 | X レ ジス タ に , テキ スト 最終 番地 マイ ナス 1 が 入っ て し まう . 
( 3 3 : 3 4) ニ テキ スト 開始 番地 


リン クボ ポイ ンタ の 重要 性 は ,(5) 行 番号 サー チル ー チ ン の と ころ で 
理解 し て いた だ けた と 思い ます .。 この よう に , ある デー タ の 塊 の 特定 部 分 に , 次 
の デー タ が 置か れる 場所 を 示す ポイ ンタ が 入 開 上 SH り ist の 上 より が ブー ク グ が 
次 々 に 積み 重 っ て 有機 的 構造 体 を 成す . と いっ た も の を , リス ト 構 造 を も つと いう 
こと も あり ます が , BASIC ブ ログ ラム テキ スト は , 最も 原始 的 な リス ト 樹 造 
人 診 の つの で あの ある と いん まず 、 

Ia 
イン タ 内 の 値 は 正しく な く な り , 作成 し た リス ト 構 造 が こわ れ て し まう こと に る 
まま 0 OCG MMhh り en 
ボ ポイ ンタ を 修正 する 必要 が あり ます が , 前 述 し た よう に , $ 0 0 が ある か ら と い 
っ て 文 の 終り と は 限ら な い ーー- す な わ ち , 数 値 定 数 内 の $ 0 0 が 人 存在 し 侍 る の で 
テキ スト を 読ん で いっ て 数 値 定数 を スキ ッ プ する 必要 が 出 て きま す . この 数 値 定 
数 は 必ず , 頭 が も FE で 始ま り , その 次 の 1 バイ ト で 型 を 表し ます . この 民 の 下 
位 4 ビッ ト は , その まま 以後 の 使用 バイ ト 数 を 表し て いま すす ので, これ を 利用 し 
て スキ ッ プ を 行い ます . な お , 終了 判断 は , リン クボ イン タ の 値 が $0000 に 
筐 し いか どう か で 行わ れ ま す . いく ら , リン ク ポ イン タ の 値 が 狂っ て し まう と は 
いえ 。 テキ スト の 終了 を 表す 目印 ($ 0 0 0 0) だ け は 有効 な の で す 。 …… 

また , 誤っ て NEW コ マン ド に よっ て 消去 し て し まっ た テキ スト を 衝 活 し たい 
場合 に は 。 テキ スト 先頭 の リン クボ ポイ ンタ を $0 0 0 0 以外 の 値 を 入れ た 後 , こ 
の ルー チ シ ジン (50730) る ヨー ル サ れ ば うき くい きま す , 
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2 一 3 一 5 メイ ン ル ー チ ン ・ 解 読 実 行 部 (解読 実行 ルー チン ) 


$C63D 一 $C6EC 


※ タ ダイ レク ト 実 行 の 際 の エン トリ 番地 は CO6O7A と な る . 
読込 み ポ ボ ポインタ (D9 : DA) で 示さ れる テキ スト 上 の 中 間 コ ー 


ド を 解読 ・ 吟 味 し た 後 で , 各 処 理系 の エン トリ 番地 を 求め , 各 処 理 ル ー チ ン を 呼 
出し 実行 する . テキ スト 終了 ( 暗 野 END) の 判定 も 行う . 


復帰 情報 


ご 


り 


B 


読込 み ポ イン タ (D9 : DA) が 正しく 設定 され て いれ ば よい 、. 
この 他 に 入力 情報 と な る の は , OS に お ける semaphore に 対応 する , 
待機 中 の BAS1C 割 込み の 個数 (0 59A) の み . 

プロ グラ ム テ キス ト 終 了 (暗黙 END) 時 ,。 キャ リー フラ グ を クリ 
ヤ や し て , END・STOP ル ー チ ン の 途中 ($ 8FE4) に 入る . 
(4 7 : 4 8 ) 三 現在 実行 中 の 行 番号 

(4F: 50)= 現 在 実行 中 の テキ スト 番地 

(00A9) = ニ ト レ ー ス モー ド ・ フ ラグ (TRON/ZTROFF) 
(AF :B0) ニ スタ ッ ク ポ イン タ の 復帰 用 の 値 ・ 格 納 レ ジス タ 
(00B1) = ニ エ ラ ーRESUME フ ラグ 

(D 9 : DA)= 汎 用 読込 み ポ イン タ ( こ こ で は テキ スト 番地 が 入る ) 
(059A) = 待機 中 の BAS1IC 割 込み の 個数 (semaphore) 
(01F2:01F3)] ジャ ンプ テー ブル 先頭 番地 な ど (前 節 
Te TED) | (4) の [12| 表 2・3・1 参照 ) 
(0257 一 0259)= ニ PEN コマ ンド 用 拡張 フッ ク 

(0263 一 0265)| 拡張 フッ ク ・ 普 段 は RTS 命 令 が ある 
IE 
$9195 一 LET (代入 文 ) 処理 ルー チン … 3 うー8 人 徹 参照 
$9C27…1 文 字 出 カカ ルー チン (JMP $SDO8E.. 第 4 章 ) 
$9DC1 一 MID$ も $ も 文 処理 ルー チン 

$B6 1 5ー 行 番号 定数 出力 ルー チン 
$BFDD 一 1NPUT 処 理 ル ー チ ン 

$D3C2 一 BASIC 割 込み (COM, KEY など) 制御 ルー チン 
$DB59 一 Break キー チェ ッ ク ル ー チ ン 2 グー3ー6 節 参照 
$E1E4 つ 丁 IME コ マン ド 処 理 ル ー チ ン 
$E291 つ DATE コ マン ド 処 理 ル ー チ ン 

$ も EB4B-SCREEN コ マン ド 処 理 ル ー チ ン 
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$8FE4 一 END ル ー チ ン の 途中 の エン トリ ボ ポイ ント (3 一 4 節 ) 
$8DD 1 一 エラ ー 処 理 ル ー チ ン ・ エ ント リ 番 地 
解読 実行 ルー チン の 基本 的 な アル ゴリ ズム は , テキ スト 作成 ルー チ 
ン の アル ゴリ ズム に 比べ る と は る か に シン プル で 理解 し や すい も の と な っ て いま 
す が , この こと は 実行 時 の ロス タイ ム を 小さ くす る こと と 大 きみ な 関係 が あり ます 
すなわち , 骨格 と な る 処理 は 「 (ジャ ンプ テー ブル 先頭 番地 ) 十 2* (中 間 コ ー 
ド ) 」 の 計算 か ら 各 処理 系 エン トリ 番地 の 書か れ て いる 場所 を 割り 出し , そこ か 
ら エ ント リ 番 地 を 取り 込ん で 分 岐 す る と いう 単純 な も の と な っ て いる の で す . 
さて , 解読 実行 ルー チン は , 処理 の 効率 を 上 げ る た め に , 上 述 の エン トリ 番地 
を 計算 し て 分 岐 する 部 分 (お C680 一 C6DA) を サブ ルー チン の 形 と し て 持 
っ て お り , 本 体 (おぉ C6 3D-C6 7F) と 大 きく 2 つの ブロ ッ ク に 別れ て お り 
ます . すなわち , 各 コ マン ド 処 理系 ルー チン は , 解読 実行 ルー チン 本 体 の サブ ル 
ー チ ン の 一 端 と な っ て いる わけ で , RT S 命 令 一 つ で この 解読 実行 ルー チン に 戻 
っ て くる こと が で きる の も , この よう な 構造 に よる も の で す ( 図 2・3・9) . 


図 2・3・9 解読 実行 ルー チン と 各 処 理系 と の 連係 の 様子 


(2) FOR 文 」。 WHILE 文 等 の スタ ッ ク 操 作 コ マン ド は , リタ 
ー ン アド レス を 放 葉 し て JMP で 戻る 


解読 実行 ルー チン 


$C63D | ・BASIC 割 込 の チェ ッ ク , $C680 | 分 
・ ボ イン タ の 更新 


リロ 


ア F』 
* 構文 チェ ッ ク / 中 間 コ ー ド 
/ | * ま 2 を ロ 
テー ブル 先 
$C67A 引 ( に 加え て 


sC67F BRA $C63D 7 


) 普通 の コマ ンド (LET 文 , GOTO 文 な ど ) は RTS 命令 
で 解読 実行 ルー チン に 戻る 


ーーー ニー 
ドー] 


テキ スト 作成 ルー チン 


・「Ready 」 表示 
・] 行 入力 


(3LIST. END な ど 実 行 後に 「 コ マン ド 待 ち 状 態 」 と な る 
る コマ ンド (は 8E/72 へ へ. 


※ こ の 他 , 例外 的 な も の と し て 


(4) JMP $8E63 で 「Break」 表示 を 行う も の (STOP 文 の み ) 
が ある. 「 


それ で は , 抜粋 し た ソー スリ スト ( 図 2・3・10) で 御覧 下さ い . 
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図 2・3・10 解読 実行 ルー チン の 概略 (2 の 1 ) 


本 体 。 C63D JSR $0263 … 拡 張 フ ッ ク 
JSR $DB59 … プ レー クキ ー チ ェ ッ クル ー チ ン 
BASIC 割 込 [ LDA 059A) ] 待機 中 の BASIC 割 り 込 み が あ れ ば , 割込み 制 
処理 | 件 ルー チン ($D3C2) へ 分 岐 
ポイ ンタ C64B STS (AF :BO)… ス タッ クボ イン タ 復 帰 用 の 値 を 格納 
更新 ( LDX (D9:DA) 
STX (4F :50) … テ キス ト 番 地 の 復 帰 用 の 値 


250 の の 尼 LDX ,X 十 | 女 の 終 り ($00 ま た は Y:Y) で な けれ ば Syntax 
EE ErrOT (アマ な ら $C67A に 飛ぶ 

C65D LDD ,X 十 十 ] リン クボ ポイ ンタ 読み 込み : テ キス ト 終 了 ( リ ン 
次 の 行 へ BEO $C6DB | ク =0) な ら , 暗黙 END 処 理 部 ($C6DB ) へ 
移行 STD (47:48) … 行 番号 の 格納 

STX (D9:DA)… 読 み 込み ポイ ンタ 設定 

トレ ー ス LDA (A9) トレ ー ス モー ド フ ラグ が 立っ て いた ら , 
モー ド 処 理 | 3 MIA 


C67A JSR $D2 … 次 の 文字 の 読み 込み 
( BSR $C680 … 各 処理 系 ルー チン へ の 分 岐 
BRA $C63D 


|  C680 BNE $C683 | 空 文 ( 娘 字 コー ド が $00 ま た は "Y:") | 
| RTS な ら 本 体 プ ロッ ク ヘ へ リターン 


C68F CMPA エ $80 | A レ ジス タ 内 の 女 字 コー ド が 中 間 コ ー ド で な けれ ば 
LBLO $9195 J LET 文 (代入 文 ) 処 理 ル ー チ ン へ 分 岐 


コン 8 / ジ ャ ンズ) 
引 ト ※ る 24 
| リ LDX ゃ 01F2 (01F2:F3)=$8ADA \ 先 頭 | 
| 側 | C69C ASLA …AーA※2( こ の 際 , 最上 位 の ビッ ト が 切捨て られ , 
の TFR A,B 値 は $00-FE に ) | 
図 ABX …X ニ (テー ブル 先頭 ) 2* (中 間 コ ー ド ) 


LDX ,.X 。 … エ ント リ 番 地 ( 分 岐 ア ドレ ス ) の 取り 込み 

JSR $D2 … 次 の 文字 コー ド を 読み 込む | 

JMP ,X … 各 コマ ンド 処理 ルー チン へ 分 由 | 
C6B2 JSR $D2 …( 頭 が コー ド $FF で 始ま っ て いる 時 ) 後 続 コ ー ド の 読み 

CMPA キ $9E 込み | 

LBEO $9DC1 | 


ポー ミュ は 沙 下 ・ 


YFF9EY な ら , MD$ 文 処理 ルー チン へ 


CMPA 芋 AO 
LBEO EB4B 


| YFFA0Y な ら , SCREEN コ マン ド 処 理系 へ 
JMP $0266 … 拡 張 フ ッ ク 
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凶 2・3・10 解読 実行 ルー チン の 概略 (2 の 2) 


暗黙 END| C6DB LDB (47 : 48) 
処理 部 NCB 


BEO ゃ CO6E6 


ダイ レク ト 実 行 中 な ら 、RESUME チ ェ ッ ク 
を 行わ ず すず に 、$C6E8 へ 行く 


LDB 間 生 13・……… Error Without Resume エ フラ フラー コー トド 
TST (B 1 ) | 
LBNE $8D1 


C6E8 ANDCC 。 攻 $FE……… キャ リー クリ ア ($8FE 4 で 必要 と な る ) 
JMP dk に 詞 / 吐 さ Senms END・STOP・ プ レー ク 和 學 理 プ ブロック 


本 体 ブ ロッ ク で は , BASIC 割 込み 処理 つ ポ イン タ 更 新 コ シン タク ス ( 午 
文 ) チェ ッ ク - 新 し い 行 へ の 移行 (テキ スト 終了 テス ト も 含む ) っ トレース モー 
ド 処理 一 解読 実行 の 順に 処理 が 進め られ ます . な お , 構文 チェ ッ ク は , 前 の コマ 
ンド の 処理 が 終了 し た 際 に 文 が 正しく 終結 し て いる か どう か を チェ ッ ク す る た め 
の も の で す が ,。 次 の コー ド が コロ ン ("マテ $3A) の 時 は , 新しい 行 へ の 移 
行 処 理 と トレ ー ス モー ド 処 理 の 2 つ を スキ ッ プ し て , すぐ に 次 の ステ ー ト メン ト 
を 実行 し ます . また , トレ ー ス モー ド 処 理 に お いて , " |" お よび Y」 『 の 表示 
こ は 1 文字 出 カ ルー チン ($9C27$DO 8E: A レ ジス タ の 文字 コー ド を 
人 
行 番号 定数 を 出力 ) を , それ ぞ れ 使用 し て いま す . 解読 実行 ルー チン に 入る 時 に 
は 常に (BF)=$ 0 0 と な っ て いま す の で , 出力 対象 ファ EE 
MWhikik 

分 岐 用 サブ プル ー チ ン 内 に ※ と 記し た 場所 で は , 中 間 コ ー ド の 分 類 を 行い ます . 
放 込 み ル ー チ ン に よっ て AA レジ スタ 内 に 取り 込ん だ コー ド が が , 


$80 一 $CB 一 基本 コマ ンド ジャ ンプ テー ブル (8ADA 一 8B71) 
より 飛び 先 を 求め て 各 処 理系 エン トリ へ 分 岐 
$ ぉ CC 一 $E7 一 Syntax Error (コマ ンド で は な い ) 
$ CC 以上 1 $E8 一 $8FEー み JMP [|[O1FC| (間接 分 岐 ) 
化 読 9EーMIDS 文 A6 っ TIME 文 
$FF ド (コー 9B-PEN AADATE 文 
LC 6 旨 2) ド が A6INPUT 文 A0SCREEN 文 


と 分 か れ ま す . (1FC: 1FD) に は , ROM 時 も 805A:iDISK 時 $7 
3 6F 上 が 書か れ て お り , 拡張 コマ ンド ・DISK コ マン ド の 分 岐 ア ドレ ス を 計算 
する 延長 ルー チン へ 間接 ジャ ンプ する こと に な り ま す . 
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$E 8 一世 ED 一 み D1SK コ マン ドジ ャ ンプ テー ブル (7 3 3 0 
$736F ー733B) より エン トリ 番地 を 読ん で 分 岐 
DE EL ドーー テ JIM 10206| 即ち $ も 805A へ 
$F 3 以下 ーー 拡張 コマ ンド ジャ ン フ テー ブル (8 0 4Eー8 0 
ゃ 805A 5 9) より エン トリ 番地 を 取り 込ん で 分 岐 
$F4 以 上 ー み JMP |[O210| 普通 Syntax Error へ 
ぃ いずれ の 場合 も , メレ ジス タ に ジャ ンプ テー ブル 先頭 (87330 も し く は $8 
0 4E) を 入れ , A レ ジス タ か ら ゃ EE8 も し く は $ ゃ ED を 引い て ,。 $C6 9C に 
入り 直し ます . コマ ンド の 種類 を 問わ ちず, $D 2 ルー チン に よっ て 中 間 コ ー ド に 
続く 1 文字 を A レ ジス タ に 読み 込ん で か ら , 各 処 理系 ルー チン へ 分 岐 し て いる こ 
と に 注意 し て 下さ い 。 一方,。 ジ ャ ンプ テー ブル は 次 の よう に な っ て いま す . 


図 2・3・11 ジャ ンプ テー ブル の 様子 


$S8ADA 8FDO, A203. A2C7,. 90A0.…… EB9A. E3BA (8B71 番 地 ) 
END FOR NEXT DATA KILL INTERVAL 
| 82) (83) (CA ) (CB) の エン トリ 
$7330 73A1, 7565, 7CE6. 7D4E. 7DA8. 7DA 7 (733B 番 地 ) 
DSKINI DSKO$ NAME FELD LSET RSET 
( コー ド E8) (E 9 ) (EA) (EB) (EGO (ED ) 
$805A 808E, 8448, CD88, 9A7F. EBBA, EC7 2(8059 番 地 ) 
CHAIN ERASE LIST LPRINT SOUND PLAY 
(EE ) (EF ) (F 0 ) (EE 小 /| (F 2 ) (F 3 ) 


すべ て の コマ ンド に つい て この 上 頁 に 載せ る こと は で きま せん の で , 図 中 の コマ ン 
ド 以 外 の エン トリ に つい て は , 6 一 4 節 を 御 参 早 下 さい . 

それ か ら , PEN コ マン ド は 現在 の と ころ 使用 不可 能 で あり , PEN 用 拡張 フ 
ッ ク (0257-ー0259) に は 「JMP $CEFEOA (Devic Unavailable エ 
MR の の PoE の ニオ )k ン ポン ルン 
語 処理 ルー チン へ の JMP 命 令 を 書 むこ と に よっ て 「 ユ ー ザ 定義 コマ ンド 」 
と し て の 意味 を 持た せる 2 

最 信 に 暗 野 END 処 理 部 に つい て 煎れ て お きま す . テキ スト (も し く は テキ 
スト バッ ファ 上 ) の プロ グラ ム を 実行 中 に リン ク ポ イン タ を 読み 込ん で ,。 その 値 
が ゃ も 000 0 で あっ た 電 合 、 プ ログ ラム テキ スト は ここ で 終わ り と な っ て いま す の 
で , 実行 を 中 止 す る 必要 が あり ます . この 場合 に は , END ル ー チ ン の 途中 へ 分 
岐 し て いき ます が , この 際 , オー プン 中 の ファ イル の クロ ー ズ は 行わ な いこ と に 
注意 し て 下さ い . この た め , エラ ー 処 理 ル ー チ ン 内 で この よう な 暗黙 END と な 
っ た 場合 に は 。 特に 警告 と し て 「Error Without Resume」 エ ラー で 終わ る よう 


ヽ J! 
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な し くみ に な っ て いま す . また だ た, END ル ー チ ン は , STOP・ ブ レー ク 処 理 を 
か ね て いる の で , 両者 の 区 別 を する た め に 内 部 で キャ リー フラ グ の クリ ヤブ セッ 
ト (クリ ヤ が END プ セッ ト が STOP・ ブ レー ク ) を 行っ て いま すか ら , 暗 閑 


END と し て 途中 か ら 入 る 際 に キャ リー を クリ ヤ し て 入る 必要 が あり ます . 以上 


の 操作 を し て いる の が ,。 $C6DB-ーC6EC の 暗黙 END 処 理 部 で す . 

それ で は ,。 「1 0、,TRON グ 20、.TROFF」 と いっ た 簡単 な プ ブログ 
ラム の 実行 例 で , 解読 実行 ルー チン の 働き を 追っ て み ま す . テキ スト 上 に は 次 の 
よう な 中 間 言 語 が 書か れん て いま す (番地 は 標準 OM モー ド 時 の 値 で す ) . 

お り 78BS0U 07960. 人 00U け 4.90)002079 す し じ 0O00O0L14N9150050000 
これ を , 「RUN」 に よっ て 実行 させ た 場合 , 次 の よう に な り ま す . 

まず , $ 0 7 8F の $ 0 0 を 見 て , 初め の 行 の リン ク を 読み , 次 いで 行 番号 を 
読み 込み ます . 最初 は トレ ー ス モー ド フ ラグ が 立っ て いな い の で , トレ ー ス 処理 
は 行わ ず , 次 の コー ド $ 9 0 を 読み ます , 基本 コマ ンド の 一 つ で すか ら , メレ ジ 

タ に は まず (1F2:1F3) の 値 =$B8ADA が 入り , 続い て , ASLA で 

eS は ` り ます . これ が X に 加え られ て $8 AFA と な り , 
この $8AFA に は TRON コ マン ド 処 理系 の エン トリ 番地 A 0 1 A が 書か 
れ て いま すか ら , 結局 。$ AO 14A 番 地 に 制御 が 移る こと に な り ま す . RTS 命 
令 で T RON 処理 か ら 戻 っ た 後 , 再び 同様 の 処理 が 繰り 返さ れ ま す が , 今度 は , 
TRON に よっ て トレ ー ス モー ド フ ラグ が 立て られ て いま すか ら , Y | Y, Y2 
0 マ (現在 の 行 番号 ) , Y] Y が 表示 され ます . 次 いで , 中 間 コ ー ド $ 9 1 が 読 


み 込 まれ , 先程 と 同様 に し て $A01B 和 地 (TROFF 処 理系 ) へ 分 岐 し ます . 


最後 に .。 $ 0 7 9C の リン クボ ポイ ンタ ニテ 間 暗黙 END へ 飛び ま 
す . そし て , END ル ー チ ン を 通っ て $8E7 2 番地 に 「Ready」 表 示 と 
YR 
クリ や ヤ さ れ て いま す . 

と ころ で , TRON, TROFF の 処理 系 が どの よう に な っ て いる の か は 次 の 
リス ト を 合 赴 下さ い . 


区 2・3・12 TRON, TROFF 処 理 ル ー チ ン 


TRON (A 01A か ら 入 っ た 場合 ) ャ ーッ TROFF (A0 1B か ら 入 っ た 場合 ) 


$AO 1A 86 4F LDA モモ 4F も $ ぉ A01B 4F CLRA 
97 A9 STA $ ゃ A9 97 A9 STA $A9 
23. 9 RTS 39 RTS 


左右 を よく 見 比べ て みる と 。 5 バイト の み で ,。 2 つの コマ ンド の 処理 を し て いる 
こと が わか り ま す . この よう に 。 1 番地 エン ト り を ずらす こと に より 。 フラ グ の 
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セッ トノ クリ ア の 2 つの 動作 を まとめ て し まう と いう 方 法 は ,。 よく 用 いら れる 高 
系 テ クニ ッ ク で す の で 十分 理 征 し て お いて 下さ きい 。 だ た だ し ,。 アセ ンプ ブフ か せ の 
デ ク ラ テック で ある こと も お 宙 九 人 な くだ 


2ー3 一 6 Break キー チェ ッ ク ル ー テ チン 


| アド レス | $DB59 - $DB6B 


プレ ー ク ・ キ ー の 押下 を チェ ッ ク し , 押下 が 検出 され れ ば , 音 関 係 

の 初期 化 を し て Break ル ー チ ン に ジャ ンプ する . 

D, CC 

(0 3 1 2 : 0 3 1 3 ) ニ プレ ー ク ・ キ ー 押 下 フ ラグ /F | 和 間 

|「S U B| $O290 一 拡張 用 本 
$ ゃ EC0 5 一 つみ 音 関係 の 初期 化 ル ー チ ン 

(0312:0313) ニ 0 な ら , 何 も し な いで Return す る . 
(0312:0313) デ 0 な ら , $ や EC05 を 呼び (0312. 
0313) を クリ ア し て 8FD7 (Break ル ー チ ン ) へ 飛ぶ . 


2 一 3 一 7 音 関 係 の 初期 化 ル ー チ ン 


$EC05 一 $EC13 


FM 一 7 の 持つ 音 関 係 の 初期 化 を する も の で 主 な 動作 は 次 の も の で す . 
①$EC4D で PLAY 文 が 使用 する カセ ッ ト 用 バッ ファ (カセ ッ ト ・PLAY 
兼用 ) と PSG の 初期 化 を し ます . 
②$EC27-ー$EC28 に BEEP_ OFF 用 の RCB が 格納 され て お り , こ 
れ を 使用 し BIOS を 呼び 出し て B ヒ ヒビ ヒ P_.OFF し ます . 
⑧PLAY 文 で は TIMER の 割込み を 使用 し て バッ ファ 内 に 交え られ た デー タ 
を PSG に 出力 し て いる の で , $ や ECIB を 呼び TIMER 割 込み を 禁止 す 
る こと で , PLAY を 実行 させ な い 様 に し ます . 
4④F フ ラグ と 1 フラ グ の マス ク を イネ ー ブ ル に し ます (ANDCC せ $AF). 
| レジ スタ | A, B, X, Y, U, CC (CC 以外 は 全て 保存 ) 
|WORK | $0 0DEー…BIOS ジ ャ ンプ ルー チン 
$EC1Bーー IRQ 割込み 制御 ルー チン 
$ も EC4D 一 PLAY バ ッ フ ァ , PSG の 初期 化 ル ー チ ン 
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弟 3 斉 シス テム 的 コマ ン ム と そ の サフ ルー チン 


2 一 1 NEW コマ ンド 処理 ルー チン 
ーー テキ スト 消去 ・ 変 数 消去 ・ 各 種 の 初期 設定 を 行う ルー チン 一 一 


| アド レス | S8F32, 89, 4B, 51, 70, 82,. 91 一 $8FBB 
機 能 | 次 の よう に 7 つの ブロ ッ ク に 分 か れ , 各 エ ント リ に 対 応 し ます . 
(1) 8F32<38 一 構文 チェ ッ ク プ ファ イル クロ ー ズ (NEW コ マン ド ) 
(2) 8F39ー4Aー テ キス ト 消 去 な ど 
(3) 8F4B~ て 50 一 読込 ポイ ンタ (D9 : DA) の 初期 設定 
(4) 8F51 て 6F 一 変数 消去 な ど (CLEAR コマ ンド に 相当 ) 
(5) 8F70 て 8 1 一 エラ ー 関 係 の 初期 化 プ 乱数 初期 化 
(6) 8F82ー90 一 SP の 初期 値 設 定 プ COINT ア ドレ ス の クリ ア 
(7) 8F91-BB 一 文字 列 作 業 領域 (SAC1 一 10) 初期 化 な ど 
$8F9 1 (7) か ら エ ント リ す る 場合 に は , メレ ジス タ に リタ ー 
ン ア ドレ ス を 格納 し て お く 《. 
解説 参照 
$92A0O-Syntax Error エン トリ 
$CE 8 1 一 すべ て の ファ イル を クロ ー ス する ルー チン 
$ も 80EBCHAIN 後 処理 ルー チン 
$D498~BASIC 割 込 (COM,KEY な ど ) 初 期 化 ル ー チ ン 
$8FC9DATA・RESTORE ボ イン タ 初 期 化 ルー チン 
$985 0 一文 字 列 コミ 化 ル ー チ ン 
※「 ゴ ミ 化 」 に つい て は , 2 一 2 節 内 の 文字 列 変 数 の 説明 を 参考 に し て 下さ い 、. 


各 エ ント リ は , BAS 1IC イ ンタ ブリ タ 内 で は 次 の よう に 使い 分 け 
られ て いま す . 
$ も 8F32 (1) NEW コ マン ド 処 理 の 入 晶 
$ も 8F39 (2) 一 BASIC 起 動 時 (コー ルド スタ ー ト ルー ナン) お よび 
LOAD 実 行 中 に エラ ー が 発生 し た り Abort が か か っ た り 
し た 時 に コー ル さ れ ま す . 
$ も 8F4B(3) RUN | の 時 の 初期 設定 用 や 、 DELETE 処 理 ・LO 
AD 処理 が 終わ っ た 後に 呼出 され る エン トリ で す . 
$ も 8F51 (4) 一 CLEAR コマ ンド の 最終 処理 ルー チン と し て , また ., 
「RUN 行 番号 」 や RENUM の 処理 前 後に コー ル さ れ 
る 場所 . 
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: 和 人 コ 半 / (5) っ つ CHAIN 後 処理 ルー チン か ら の エン トリ . 

$8E82 (6) 一 Abort ル ー チ ン か ら の エン トリ . 

8F9 1 (7 ) っ ユエ ラー 処理 ルー チン か ら コ ー ル され る 場所 . 

そし て , ある エン トリ か ら 入 っ た 場合 に は , それ 以後 の 処理 を すべ て 行い ます . 
廷 っ て , (1 ) か ら 入 っ た 場合 は 1) 一 (7 ) の 処理 を 全部 行う の に 対し て , 例え ば , 
(4 ) か ら 入 っ た 場合 は (4 ) て (7 ) の 処理 だ け を 行う 。 と いう 具合 に な り ま す . そ 
CC で IGR。 衝 / ロウ グ こ と に 見 で あき ます 
(1) 構文 チェ ッ ク は , テキ スト 上 の NEW コ マン ド の 一 文 が 完結 し て いて ゼロ 
フラ グ が 立っ て いる ( 有 即ち , 最後 の 文字 が NULL か コロ ン に な っ て いる ) か ど 
うか を ナチ ナ ェ ッ ク す る も の で , 完結 し て いな けれ ば Aa Error」($92A0) 
を 発生 きせ ます . 実際 の NEW コ マン ド 処 理 が 始ま る の は $ も 8F3 6 から で あり , 
ユー ザ が マン シン 語 ブ プロ グラ ム 上 で 同等 の 処理 を 行い た い 場合 に は , この 番地 に エ 
ント リ す る 必要 が あり ます . $ 8F36 一 38 に は 「JSR $CE8 1」 が 書 
か れ て お り , すべ て の ファ イル を クロ ー ズ し ます . 
(2) テキ スト エリ ア 先 頭 番地 (3 3 : 3 4) か ら の 2 バイト, 如 ち , 一 番 最初 
の リン クボ ポイ ンタ に $0 0 0 0 を 代入 し , 次 の 番地 を (3 5 : 3 6) に 格納 し ま 
す (この 操作 が テキ スト 消去 に 相当 する わけ で すか ら , NEW コ マン ド に よっ て 
1 
っ て すぐ に 復 告 する こと が で きま す ). さ ら に , トレ ー ス モー ド フ ラグ (A9) と 
プロ テク ト フ ラク (D1) を クリ ア す る と と も に , UNLIST 行 番号 レジ スタ 
(01E7:01E8) に も お FFFF を 代入 し ます . 
(3) この プ ブロック で は , テキ スト 先頭 (3 3 : 3 4) マイ ナス 1 の 値 を 読込 ポ 
イン タ (D 9 : DA) の 初期 値 と し て 設定 し て いま す . 行 番号 も FD も 指定 され 
て いな い 時 の RUN コ マン ド は , (2) 一 (7) の 処理 を 終え て か ら , 即 , RTS 命 
令 で 解読 実行 ルー チン へ 飛び ます の で , この 設定 は 征 妥 な 意味 を 持ち ます . 
(4 ) te 
HAIN 実 行 中 フラ グ (0 5 BC) が 立っ て いな い 限 り , 拡張 フッ ク (0 281 
に BAS1IC 割 込 初期 
化 ル ー チ ン ($D498) を 呼び , 待機 中 の 割 込 個数 レジ スタ (059A) の ク 
リア : 割 込 テ ー ブ ル (0 7 1Eー0777) の 初期 化 : PF キー 割 込 の 侍 止 : タ 
イマ 割 込 初期 化 を 行い ます . 変数 消去 ・ 変 数 名 の DEF 型 指定 初期 化 も . この フ 
ロッ ク で 合い ます 、 前 者 は ,(3B:3C)・(30:3E) に (35.36) の 値 る 
代入 する こと に よっ て 変数 エリ ア 内 に 登録 きれ て いる 変数 ・FN 関 数 の 情報 を 無 
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効 に し て お り , 後者 は , 単 精度 型 指定 子 も 0 4 を DEF 型 指定 用 テー ブル (0 3 
1F-0338) に 格納 する こと に よっ て 「DEEFESNG AA 一 」 に 相当 する 
生還 な SUO EAR マン ド と を 
行 す る と 全て の DEF 文 定義 情報 は 無効 に な る 」 と 書か れ て いま す が , DEFU 
SR 文 に より 定義 され た 情報 だ け は 有効 の まま で す の で 注意 し て 下さ い . 

(5) ここ で は , エラ ーRESUME フ ラグ (B 1 ) お よび ON_ERROR_. 
GOTO 行 番号 (B4 :B5) 時 Mi ミミ 民 ND テ デー アル (0 3 1 
8 一 031B) に 初期 値 と し て $804FC57 2 (1 0 進数 で 表し て みる と 0. 
8116065263748169 と な る ) を 与え ます . 

(6 ) 非常 に 重要 な ブロ ッ ク で , スタ ッ ク に 積み 上 げ ら れ て いる デー タ の うち 最 
ト 上位 2 バイ ト の リタ ー ン アド レス を メレ ジス タ に 読ん だ 後 。 SP 初 期 値 と し て 文 
字 列 領域 上 眼 ア ドレ ス (3F : 4 0) マイ ナス 1 を 与え , この 値 を スタ ッ ク ボ ポイ 
ンタ 復帰 用 レジ スタ (AF : BO) 初期 値 と し て 代入 し , 同時 に , 文字 列 領域 と 
の 境界 を は っ きり させ て お くだ め の 区 切 $ 0 0 を この 番地 に 格納 し ます . つ 
まり , リ ター ン ア ドレ ス 1 つ を 除い た ,。 すべ て の スタ ッ ク 情 報 を 破壊 し て し まう 
わけ で , ユー ザ が この 処理 系 [ (1) 一 (6) 〕」 を 使用 する 場合 に は 相当 注意 
払わ な けれ ば な り ま せん . この よう な 事情 か ら , BAS 1 50 7 宏和 teO 
SUB 文 の 支配 下 ]」 内 に NEW・ CLEAR を 置く の は 御法度 で す . も ちろ ん , 
何 重 に も ネス ト し て いる マシ ン 語 サブ ルー チン か ら エ ント リ す る な ど 言 語 道 断 で 
す グ スタ ッ ク 初 期 化 の 後 . CONT 用 再 ス ター ト テ キス ト 番 地 (4D: 4E) 
に $0000 を 代入 し ます . この 操作 に よっ て CONT コマ ンド が 禁止 され ます . 
(CONTー「Cant Continue 」 エ ラー が 発生 ) . 

(7) ここ で は , SAC と 結合 し て いる 有効 な 文字 列 が 存在 する 場合 に は , 次 々 
に ゴミ 化し て 結合 を 切り 離し て 無効 に し て いき , SAC ボ ポイ ンタ (1E : 1P) 
の 
フラ グ (1A) , LOAD (バイ ナリ ) 中 フラ グ (0 2F3) , VAL 関 数 実行 
中 サイ ン (E9 :EA) を クリ ア し た 後 , RTS し ます . (7 ) か ら 入 る 場合 
(1) … (6 ) の よう な , スタ ッ ク 破 壊 か ら 受 ける 制約 は あり ませ ん が , メレ ジ 
スタ に リタ ー ン アド レス を 格納 し て か ら エ ント リ す る 必要 が ある こと に 気 を つけ 

て 下る い 
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RESTORE 和 処理 ル ー チ ン 


ざ ゃ 
[ 
いら 


アド レス | $8FBC, $8FC9 - $8FCF 
機 能 | DATA・RESTORE ポ イン タ (5 3 : 5 4) の 設定 を 行う . 
レジ スタ | A, B, X,。 U, CC (キャ リー… 行 番号 の 有無 を 知ら せる ) 
入力 情報 | A レ ジス タ = ニ RESTORE 中 間 コ ー ド の 次 の 文字 コー ド 
セロ フラ ク =Areg 内 の コー ド が NULL・ コ ロン の 時 セッ ト 
※ 以 上 の 情報 は , 解読 実行 ルー チン か ら 分 岐 し て くる 直前 で , 
ゃ D2 ル ー チ ン に より 設定 され ます . 今後 , これ ら の 情報 に つ 
いて は 目 明 の こと と し て , いち いち 断り ませ ん が ,。 各 コ マン ド 
処理 ルー チン に 入っ た 時 に は 既に 次 の 文字 コー ド が 読込 まれ て 
お り , その 属性 に よっ て ゼロ フラ グ や キャ リー フラ グ が セッ ト 
され て いる と いう こと を 常に 頭 に 入れ て お いて 下さ い . 
(D 9 :DA) = 現在 の テキ スト 番地 
| 復帰 情報 | (5 3 : 54) ニ =DATA・RESTORE ポ イン タ の 更新 値 
$ 9 A 3 A つ 行 番号 定数 の 評価 ルー チン … 後 述 
ゃ 8F 1C つ 行 番号 サー チル ー チ ン ……… 2 一 3 一 4 節 (5) 
| 終了 条件 | $ 9A3A て 評価 され た 行 番号 に 等 し いも の が テキ スト 上 に 存在 し 
な い 場 合 に は , 「Undefined Line Number,」 エ ラー を 発生 させ る . 


衣 。 説 | KRESTORE の コー ド の 後に すぐ NULL ($0 0) また は コロ 
ン (や 3A) が 続く 場合 に は , $ 8FC9 番 地 に 飛ん で , DATA・RESTO 
RKE ボ インタ (53 : 54) に テキ スト 先頭 マイ ナス 1 の 値 を 代入 し ます (NE 
W ル ー チ ン か ら コ ー ル され て いる の も この $8FC 9 番地 で す ). そ れ 以 狂 の 場合 
に は , $9A3A で 評価 し た 行 番号 を 持つ テキ スト の 位置 を 捜し 出し て , その ア 
ドレ スマ イナ ス 1 の 値 を (53 : 54) に 格納 し ます . な お , RESTORE の 
コー ド の すぐ 後に も FEF2 ( 行 番号 定数 の 識別 子 ) が 続い て いな い 場 合 に は , 
$9A3A ル ー チ ン 内 で 「Syntax Error」 が 発生 され ます . 


3 行 番号 定数 の 評価 ルー チン お 9A3Ap 
の ) 


誠 別 子 ま FEF2 が ある こと を 確 誰 し た 後 , 以下 に 続く 定数 を 
(4B: 4C) お よび D レ ジス タ 内 に 読込 むせ ルー チン で す . 識別 子 ま FEEF2 が 
続か な い 場 合 に は ,「Syntax Error」 を 発生 させ ます . 
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RUN・GOTO・GOSUB 処 理系 プ ブロッ ク 


| アド レス | $9012,$902D, $9039,$9055 一 $9070 


$ も 9012 一 一 RUN エ ント リ 

$9 0 2Dー 一 GO (中 間 コ ー ド $8 7 ) エン トリ 

$9 0 3 9 一 GOoOSUB 処 理系 先頭 

$9055 一 一 GOTO 処 理系 ( 飛 先 番地 計算 サブ プルー チン /) 


※ こ の 他 ,「ON ( 式 ) GOSUB」 の た め の エ ント リ ($9 0 2F) が ある . 


入力 情報 | A レ ジス タ ー テ キス ト の 次 の 文字 コー ド 


復帰 情報 


スタ ッ ク 最 上 位 2 バイト = 解読 実行 ルー チン へ の リタ ー ン アト レス 
GOSUB 処 理系 で は , 図 3・3③・ 1 の ① の よう な ネス ティ ング 情 
報 を スタ ッ ク 上 に 積み 上 げた 後 「JMP $C6 3D」 て 解読 実行 
ルー チン へ 戻る GOSUB の 他 , ネス ティ ング 情報 を 作成 する も 
の に , FORCN EXT ル ー プ 処理 系 お よび WHILE 一 WEND 
処理 系 が あり , 比較 の た め に それ ぞ れ が 作成 する ネス ティ ング 情報 
を 図 の ② お よび ③ に 掲載 し て お く . スタ ッ ク 最 上 位 に は , 3 つの う 
ち ど の 情報 で ある か を 表す 識別 子 と し て , YSUBY, "FORY, 
YWHI LE "の 中間 コ ー ド (それ ぞ れ , $CE,$8 1, $BE) 
が 置か れ て いる こと に 注目 グ 


図 3・3・1 スタ ッ ク 上 に 作成 され る ネス ティ ング 情報 


| GOSUB 処 理系 2 FOR-ーNEXT 処理 系 3 WHILE-WEND 処 理系 
近 居 - 5 E 2 PR | 」 6 」 = 寺 に 新 二 " 生 寺 
「「so0 /GOSUB\) |+1 し .。 | 制御 変数 の = |+1 「 | 対応 する YWENDY が |+] 
スタ ッ ク | |s00 【 娘 サイ ィ イン | | | | 実効 アド レス 。 | ある テキ スト 番地 | 
上 に 7 バリ | 現在 の (YSUBY が あ | 二 3 「F OR 廊 の 終り の 。 |+3  YWHILE" が 書か れ | 二 3 
を 吉保 | | る) テキ スト 番地 | | テキ スト 番地 の 値 | | て いる テキ スト 番地 
現在 の (YSUBY が あ | 十 5 制御 変数 の 型 + 5 S… | YWHILEY が 書か れ |+5 
ee J PR 
旧 SP … | リタ ー ン アド レス 「 + 7 (仮数 部 ・ 上 ) ~ 還 PO | 
(SC67E) | 8 ー 
| | し プッ 6 で 
| (符号 +10 WHILEーWEND 系 で も ,「FOR 
| へ (指数 部 ) |+1i1 -NEXT」 と 同様 「LEAS_.S02., 
! [ 2 号 ss: 良 S』 に よっ て , リ ターン シン アド レス を 放 到 、 
人 HPE の 恋 ] 「 」M P」 で 解読 実行 ルー チン へ 戻る . 
_-:G0SUB」 等 の 割 込 の 時 に 用 いら れ ., で 格 紹 | 


割 込 テ ー ブ ル の 先頭 番地 が 格納 され る . iitictitititititit 


FOR-NEXT 系 で は LEAS こ SO0O2., 
S 」 に よっ て リタ ー ン アド レス を 放棄 する . 解 | | 


IHS Ph | "FORY が 書か れ て い | +15 
る 行 の 行 番号 


間 +7 


読 実行 ルー チン へ は 「JMP_LSC63D」 で | 


戻る . 
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解説 | この 処理 系 は 。 3 つの コマ ンド 処理 系 が 同居 し て いる ブロ ッ ク で す . 
順番 に 見 て いき ます . 

(1) RUN…… まず , 次 の 文字 コー ド が 入っ て いる A レ ジス タ を スタ ッ ク 上 に 
退避 させ た あと , 音 関係 の 初期 化 ($ も EC05) を 行い ます . A レ ジス タ を 復帰 
させ て その 値 が $ 2 2 つま り 引 用 符 (マタ イマ ) で ある 場合 に は , プロ グラ ムロ ー 
ド 処 理系 ($CF22) へ 分 岐 し ます . 引用 和 何 で な い 場 合 に は , 続い て , 全て の 
ファ イル の クロ ー ズ スズ (や $CE8 1 ) を 行い ます . 次 の 文字 コー ド が 区 切 文 字 (N 
り ULL ま だ は コロ ン ), 即ち .。'「RUN」 も し く は 「RUN : ベベ メメ 」 で あれ ば , 
変数 消去 な どの 初期 化 ブ ロッ ク (お 8F4B-ー8FBB) へ JMP で 飛び , $ 8 
FBB の RTS 命 令 で その まま 解読 実行 ルー チン に 入っ て , テキ スト エリ ア の プ 
ログ ラム を 最初 か ら 実 行 し ます . それ 以外 の 時 (RUN ( 行 番号 )」) に は , $ 8 
F51 の 初期 設定 を コー ル し た 後 , 飛 先 番地 を 計算 し て . 「JMP $C6 3D」 
で 解読 守 行 ルー チン へ 向かい ます (この 時 , スタ ッ ク ボ ポイ ンタ SP は 初期 化 さ れ 
て いる ). な お , $8F4B と $8F5 1 の 違い は , 読込 ボ ポイ ンタ (D9 : DA) 
に , テキ スト エリ ア 先 頭 マ イナ ス 1 の 値 を セッ ト す る か どう か の 違い だ け で す ( 詳 
し く は , 3 一 1 六 を 見 て 下さ い ). また だ た , 飛 先 番地 の 計算 に は ,(4) の GOTO 処 
理系 が その まま 用 いら れ ま す . 

(2) GO…… 次 の 文字 コー ド が $CD (YTOY) な ら (4) の GOTO 処 理 
に , も CE (YSUBY) な ら (3) の GOSUB 処 理系 に 入り ます (どちら で 
も 無い 場合 に は , 「Syntax Error」 を 発生 ). この 際 。 も D2 ルー チン に よっ て , 
読込 ポイ ンタ (D9 : DA) を 一 つつ 進め ます . 

(83) GOSUB…… B= ニ 4 と し て メモ リフ ル テ ス ト (8DAA) を コー ル し 
て , 8 バイ ト の スタ ッ ク 領 域 が 確 全 で きる こと を 確か め た 後 ,(4 7 : 4 8) お よ 
び (D9 : DA) の 内 容 を 読込 ん で プッ シュ し, 図 3・3・1 の ① に 示し た よう 
な ネス ティ ング 情報 を スタ ッ ク 上 に 作成 し ます (これ は , RETURN 文 に 必要 
な 情報 と な り ま す ). 続い て , (4 ) を 用 いて 飛 先行 番号 を 計算 し て か ら , 解読 実 
行 ル ー チ ン へ 戻り ます (JMP $C63D). 

(4) GOTO…… 飛 先行 番号 を 計算 する ブロ ッ ク で す (GOTO 廊 の 場合 に は 
後 の RT S で 解読 実行 ルー チン に 入り ます ). まず , 行 番号 定数 評価 ルー チン 
($9A3A: ワー クレ ジス タ (4 B : 4C) に 行 番号 を 格納 ) を 呼び 。 ついで. 
非 実行 文 の スキ ッ プ 処理 ルー チン ($ 9 0AB) に よっ て 現在 の 行 の 残り を 読み 
飛ば し , 次 の 行 の 先頭 番地 を X レ ジス タ に 入れ ます . ここ で , 飛 先行 番 号 ミ 現在 
の 行 番号 (4 7 :48) で あれ ば テキ スト 先頭 番地 か ら : 飛 先行 番 号 > 現 在 の 
行 衝 号 で あれ ば 次 の 行 の 先頭 (XK レ ジス タ ) か ら , 行 番号 サー チル ー チ ン ($ 
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8F 1C) に よっ て , 飛 先行 の 先頭 番地 を 検索 し , 1 を 引い て 読込 ポイ ンタ (D 
9 : DA) に 格納 し て リタ ー ン し ます . この よう な 場合 分 け を 行う の は , 少し で 
も 要 索 に 愛す る 時 間 を 短縮 する た めで す . な お , 行 番号 サー チル ー チ ナン で ,。 キャ 
リー が 立て られ て 帰っ て きた 場合 , 邑 ち , 該当 行 番号 が テキ スト 上 に 人 存在 し な い 
場合 に は , 「Undefmed Lme Number」 エ ラー を 発生 ($9 0 8 4 に 分 岐 ) させ 
ます . 
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3 一 4 END・STOP・Break 処 理系 ブ プ ブロック 


復帰 情報 


11S8 


$8FD0, D7, D9,E1, E4 一 $9001 
$ も 8FD0 一 一 END 文 エン トリ 
$8FD7 Break エ ント リ (Break チ ェ ッ クル ー チ ン よ り ) 
$8FD9 一 STOP 廊 エン トリ 
$8FE1 一 GCCURSOR な どか ら の Break エン トリ 
$8FE 4 暗黙 END (テキ スト 終了 ) エン トリ 
A,。 X (BU は END エ ント リ の み 使 用 ) 
SS 一 一 スタ ッ ク 復 帰 用 レジ スタ (AF : B0) に より 補正 
(直前 に 実行 中 だ っ た 行 に 入る 前 の 値 が 復帰 され る ) 
キャ リー フラ グーーSTOP・Break プ END フ ラグ と し て 使用 
ゼロ フラ グーーーーーE ND 文 。 STOP 文 が 完結 し て いる か どう か 
の 判定 に 用 いら れる 
8FE1, 4 か ら エ ント リ す る 場合 に は , キャ リー フラ グ を 立 
て て 入る か 否 か で , 最終 的 に , 「Break」 出力 (8E6 3) と な る 
か 「Ready」 出 力 ($8E 7 2) と な る か に 分 か れる . 
「Break」 出 力 の 場合 ,.X レ ジス タ に 「Break」 メ ッ セ ー ジ の 先頭 位 
置 (マイ ナス 1 ) の 値 $8SD 60 が 入る . また , ダイ レク トト 実行 で 
な か っ た 場合 に は , 様々 な 情報 が セー プ さ れる . 具体 的 に は 
S P に は , 復帰 用 の 値 (AF :B0O) が 一 $8FE 4 を 除 〈 一 
(4 9 : 4 A) に は , 直前 に 実行 し た 行 番号 (4 7 :48) が , 
(4D: 4E) に は , 直前 の ポイ ンタ (D 9 : DA) の 値 が , 
それ ぞ れ 格納 され る (これ ら は , CONT 文 で 使用 され る ). 
上 記 の 他 ,(4F : 5 0) が ポイ ンタ (D 9 : DA) の 一 時 退避 用 と 
し て , また ,(0598) が キャ リー フラ ク グ 読 込 用 レジ スタ と し て , 
それ ぞ れ 用 いら れる . 一 方 , Break エ ント リ (8FD7 ) で は , 
ファ イル 番号 レジ スタ (BF) が クリ ア さ れる . 
$ も CE 8 1 一 すべ て の ファ イル を クロ ー ズ (END 文 エン トリ $8 
FD0 の み : Break・STOP・ 暗 黙 END で は クロ 
ー ズ が 行わ れ な い の て で 注意 する ). 
END 文 ・STOP 文 が 完結 し て な いと RTS し て エラ ー と な る . 


3 一 5 CONT コ マン ド 処 理系 
| アド レス | $9002 一 $9011 


機 能 | (4D:4E) キ O な ら , その 値 を (D9 : DA) に 入れ , さら に ., 
CONT 用 行 番号 (4 9 : 4A) を 読込 ん で , 実効 行 番号 レジ スタ 
(4 7 : 4 8) に 入れ た 後 , 解読 実行 ルーチン ヘリ ター ン す る . 
(4D : 4E) = ニ O の 時 は ,「Can't Continue」 エ ラー を 発生 させ る . 


「 レジ スタ | B, X 
| 入力 情報 | (4D : 4E) =CON 丁 用 の テキ スト 番地 
(49 : 4A) =CONT 用 の 行 番号 
(4D : 4E) = ニ 0 つ ロレ ジス タ に 「Can't Continue」 エラ ー コ 
ー ド $ 1 1 を 入れ て , エラ ー 処 理 ル ー チ ン 
($8DD1) へ 分 岐 . 
(4D:4E) キ 0 一 (D9:DA) に (4D: 4E) の 内 容 
(47 :48) に (4 9 : 4A) の 内 容 
を 入れ て , 解読 実行 ルー チン へ . 


ILWORK | 上 記 の 通り 


解説 | 3 一 4 節 で 述べ た よう に , STOP 文 ・Break な ど に よっ て テキ ス 
ト プ ロ グラ ム が 止ま っ た 場合 に は , その 時 の テキ スト 番地 (D9 :DA) が (4 
D : 4E) に , 行 番号 (4 7 :48) が (4 9 : 4A) に それ ぞ れ セー ブ さ れ ま 
すか ら , この 値 を 読込 むせ こと に よっ て 実行 を 再開 させ る こと が で きま す . た だし, 
テキ スト を 修正 し た り . CLEAR コマ ンド を 用 いた りす る な ど , NEW ル ー チ 
ン の (1) 一 (6 ) の ブロ ッ ク の 処理 を 行っ た 場合 ,、 ス タッ クボ イン タ が 初期 化 
され て し まい , 実行 を 再開 する こと は 不可 能 と な り ま す . この 実行 再開 不可 能 の 
サイ ン と し て NEW ルーチン (6) プロ ッ ク で は (4D:4E) に $0000 
を 代入 し て いる わけ で す . 
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S 一 6 _ RETURN 


| アド レス | $9071 一 $90A7 
機 能 | スタ ッ ク 上 の ネス ティ ング 情報 を 検索 (や 8 D 6 9 ) し て 識別 子 YS 
UBY を 持っ た 情報 を 捜し 出し , RETURN 処 理 を 行う . な お , この ブロ ッ ク 
内 に は , 「Undefined Line Number」 エ ラー エン トリ ($9 0 8 4) が 存在 す 
る . また , $90A0C90A7 は , DATA 文 ・REM 文 ・ELSE 文 な どの 
処理 系 を も 兼 ね てい る が , これ ら に つい て は , 3 一 7 節 で 述べ る . 
| レジ スタ | A, 日 , X, S (内 部 ルー プ 放 棄 の た め の 更 新 ) 
|WORK | (AF :B0) = ニス タッ ク 復 帰 用 レジ スタ 
(この 処理 系 で 更新 が な され る ) 
(D9:DA) 読込 ボイン タ | GOSU 日 文 を 実行 し た 時 
(4 7 : 4 8) 王 実効 行 番号 レジ スタ | の 値 に 復帰 する . 
|S U B| $8D6 9 つ ス タッ ク 上 の ネス ティ ング 情報 を 検索 する ルー チン 
(識別 子 あ SCEYSUB" を 持つ も の を 捜し 出す ) 
9 0 A 8- 非 実行 文 の スキ ッ プ 女 理 ル ー チ ン 


$ 8D6 9 ルー チン に より , 図 3・3・1 の ① の よう な 形 を し た , 
スタ ッ ク 上 の 情報 を 捜し 出し て 。 GOSUB 実 行 時 の (D9 :DA) お よび (4 
7:48) を 復帰 させ て , さら に , $90A8 ル ー チ ン を 用 いて , GOSUB の 
文 が 完結 する まで (即ち , NULL まだ は コロ ン が 出る まで ) 読み 飛ば し ます . 
「GOSUB ( 行 番 号 )」 の 後ろ の 地 の 文 に は , 好き な 文字 列 を 書い て お いて も よ 

の は この た めで す . 割 込 処理 ルー チン (「ON_JIKEY_LJIGOSUB_ 文 な ど で 
定義 きれ た だ サブルーチン) か ら の RETURN 文 の 時 に は , さら に , 割 込 の ST 
OP 状 態 の 解除 を 行い ます . な お ,「RETURN 人 ( 行 番号 )」 の 場合 に は ,(D 9 
・DA) お よび (47 : 4 8) の 復帰 は 行わ ず に , hhtoreihyheih 
つの デー タ を 読み 飛ば し (ULEASOJ$04。S」)。 も 9055 以 下 の GOTO 
ルー チン を 用 い ebeiileikge し て (4 7 :4 8) と (D 
9 : DA) に 格納 し て 解読 実行 ルー チン に 制御 を 移し ます . 

な お , $8D6 9 で 検索 する 際 , 内 側 の YFORY お よび YWHILEY の ル 
II また 検索 終了 時 , 識別 

了 チ $ ゃ CE 以外 の コー ド が 出 た 場合 「Return Without Gosub」 と な り ま す . 
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3 一 6 一 1 スタ ッ ク 上 の ネス ティ ング 情報 を 検索 する ルー チン 


も 8D69, 8D6B -ー $8D92 
スタ ッ ク 上 の ネス ティ ング 情報 を 検索 し , 目的 の も の を 見 つけ 出す . 
A, 日 , X (X は この ルー チン の 入口 で 「LEAX.$ 0 4, 5S」 
に よっ て , スタ ッ ク を 指す ポイ ンタ と な る ) 
(5A : 5B) 三 目的 と する FOR 文 制御 変数 の 実効 アド レス 
スタ ッ ク 上 の ネス ティ ング 情報 群 
目的 と する FOR 文 が 見 つか っ た 場合 に は , その ルー プ 情 報 が 積み 
上 げ て ある スタ ッ ク 位 置 が X レ ジス タ に 格納 され , ゼロ フラ グ が 立 
つ . 目的 と する FOR 文 が 見 つか ら な か っ た 場合 に は , その 時 の ス 
タッ ク 位 置 に ある 文字 コー ド マ イ ナス $ 8 1 の 値 が A レジ スタ に 入 
り ,。 ゼロ フラ グ が クリ ア さ れる . 
識別 子 $ ぉ 8 1 (YFORY) を 持つ も の で 目的 と する も の が 見 つか 
ら な いう ち に , $8 1 で も $ も BE (YWHILEY) で も な い コ ー 
ド を 頭 と する スタ ッ ク 情 報 が 現れ る と, ゼロ フラ グ ク を クリ ア し て RT S. 


説 | FOR 一 NEXT ル ー プ 用 の スタ ッ ク 情 報 に は , ルー プ で 使用 する 
制御 変数 の 実効 アド レス も 積ま れ ま す の で ,(5A: 5B) に 号 え た 実効 アド レス 
証人 roWde 
を 捜し 出す こと が で きま す . 例え ば ,「NEXTー」I 多 」 に 対応 する FOR 廊 「F 
OR 1 多 = 1…… の OMP 
捜し 出し た りす る た め に , この ルー チン が 用 いら れ ま す . 制御 変数 名 が 明示 され 
て いな い NEX 華 文 の 場合 は 。(5A:5B)=$0000 と し て か ら こ の ルー ナチ 
ン に 入っ て くる よう に な っ て お り 。 この 場合 に は 。 識別 子 YFORY を 持っ た 情 
報 が 発見 され た 時 点 で リタ ー ン し ます . 基 別 子 YFORY を 持っ て いな が ら ア ド 
レス が 一 致し な いも の や 識別子 YWHILEY を 持つ も の に つい て は 読み 飛ば し 
て さら に 外側 の ルー プ に 対す る スタ ッ ク 情 報 を 調べ て いき ます が , YFORY で 
も YNEXTY で も な い コ ー ド (例え ば , "SUB"Y) が 出 て きた 時 は , A レ ジス 
タ に その コー ド か ら $8 1 を 減じ た 値 を 入れ 。 ゼロフラグ を クリ ア し て か ら , R 
TS で 呼出 し 側 に 戻り ます . RETURN 文 で は (5A) = ニ $FEFE と し て エン トリ 
し , 内 側 の ルー プ 情 報 を 全て 読み 飛ば し て 放 業 する わけ で す . 
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S 一 7 DATA・REM・ELSE 処 理 と 非 実行 文 の スキ ッ プ 


$90A0, 90A3 一 90A7 (DATA 等 の ルー チン ) 
$90A8, 90AB 一 90F0O ( 非 実行 文 の スキ ッ プ 処 理 ) 

機 能 | や 90A0 つ $90A8 と 続く DATA 型 の スキ ッ プ で は , NUL 
L ま た は 地 の 文 の コロ ン が 出る まで テキ スト を 読み 飛ば す . 
$ ゃ 90A3ー$90AB と 続く REM・ELSE 型 処理 で は , テキ 
スト 区 切 文字 と し て NULL だ け を 認め , これ が 出 て くる まで テキ 
スト の スキ ッ プ を 続け る . 同時 に , Y1FY 代 YELSEY ネ ステ 
ィング の カウ ント も 行う . これ は , 1F 一 THENCELSE 処 理 
系 ($90F1 一 9 1 3 3) で 利用 され る . 

A, B, X 

エン トリ 番地 が 最大 の 入力 情報 (DATA 型 REM・ELSE 型 ) 
と な っ て いる . NULL は 必ず 区 切 文字 と な る . 

復帰 情報 | 非 実行 文 の スキ ッ プ 処理 ルー チン で は , X レ ジス タ に 読み 飛ば し を 
終え た テキ スト 番地 (区 切 文字 の ある 番地 ) を 入れ て リタ ー ン する . 
ー 方 , DATA・REM・ELSE 処 理系 (- 9 0 A7) で は , ス 
キッ フ プ 処 理 ル ー チ ン (9 0A8 ま た は お 9 0AB) を 呼び 出し た 
後 , メレ ジス タ に 入っ た テキ スト 番地 を ポイ ンタ (D9 :DA) に 
格納 し て リタ ー ン (RTS) する . 

|IWORK | (D9 : DA) = 読込 ポイ ンタ 
(0011) 区 切 文字 用 レジ スタ (BB の 裏 レ ジス タ と し て 使用 ) 
(00E6) = 文字 定数 内 フラ グ 
(0094) ニニ IFーE ビ LSE ネス ティ ング カウ ンタ 


解 説 | 非 実行 文 の スキ ッ フ 処理 系 に は , 数 値 定数 内 の $ 0 0 や 文字 列 定数 
内 の コロ ン な ど を 区 切 文字 と し て 拾わ な いよ うに , 文字 列 定数 内 フラ グ (E 6) 

を 友 転 する ブロ ッ ク な どの 特殊 処理 部 分 が あり ます . 指定 され た 区 切 文 字 (NU 
し 上 し と コロ ン の 2 種 。 また は NULL 上 だ け ) が 現れ る まで メレ ジス タ を ポイ ンタ 
と し て 読み 飛ば し を 続け ます が , 途中 地 の 文 で $8A ("IFY) を 発見 の 隊 は , 
カウ ンタ (9 4 ) を プ ブラス 1 し ます . な お , B レ ジス タ に 目的 コー ド を 入れ て $ 
9 0AE を 呼べ ば , 任意 の コー ド を 区 切 文字 と し て 読み 飛ば し が 可能 で す . 
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3 一 8 LET 文 (代入 文 ) 処理 系 
ーー 変数 サー チ , 式 の 評 代 


2 ーー $91E7 ($91B3 以 降 は 文字 列 代入 ) 

| 代入 文 の 左辺 の 変数 の 実効 アド レス を 変数 サー チル ー チ ン ($9 5 

0F) に よっ て 割 出し 式 の 評価 ルー チン ($ 9 2C 3) に よっ て 評価 され た 右 

辺 の 式 の 結 蛇 を 代入 する . 

カ 情 報 | 読込 み ポ イン タ (D9 : DA)= 次 の 文字 の ある テキ スト 番地 

数 値 変 数 一 F AC1 に 評価 され た 結果 を 変数 型 に 変換 し て 格納 する . 

PMP 

(5A: 5B) = 変数 実効 アド レス (本 体 の 位置 : 代入 文 用 ) 

(0017) ニ サ ー チ され た 変数 の 型 プ F AC 1 内 の 数 値 の 型 

(7 6 : 7 7) = ニ FAC の 一 部 だ が , 文字 列 型 デー タ の 場合 に は 
評価 結果 を 表現 する SD の 位置 の アド レス が 入る . 

(35 : 36) = 単純 変数 先頭 番地 (テキ スト 最終 プラ ス 1 ) 

(3F : 4 0) = 文字 列 ス タッ ク 領 域 終 了 (上 限 ) アド レス 

(6D:6E) =SD の 位置 アド レス 一 時 退避 用 

(7Eー8 0 ) = テー 時 的 SAC ($9 7 9 0 ルー チン と 関連 ) 

$ ぉ 9 50F 一 変数 サー チル ー チ ン ……3③ 一 8 一 1 節 参照 

9 2 9 4 任意 の 文字 コー ド チ ェ ッ ク を 行う (Breg) ルー チン 
(等 号 *=Y の 中 間 コ ー ド $E6 の 有無 を チェ ッ ク ) 

$ 9 2C3- 式 の 評価 ルー チン … | ド l 較 ーー8 一 2 節 参照 

$ BCC 1 強制 変換 ルー チン (FAC 1 を Areg が 示す 型 に 変換 す 
る )/ 

$B335 一 「FAC 変 数 型 」 変 換 (変数 代入 ) ルー チン 


ゃ 0 287 つ ディ スク モー ド 時 の 文字 列 代 入 用 補助 ルー チン 
$9790 一 Breg の 長 さ 分 だ け 文 字 列 領域 を 確保 する ルー チン 
※ こ の 准 域 に 対す る SD が 格納 され る の が (7Eー8 0) で ある . 
$ ゃ 98E4 一 Xreg で 示さ れる 番地 か ら Breg の バイ ト 分 の 文字 列 を 
9 7 9 0 な ど て で 確保 し た 領域 に 転送 する ルー チン 
ゃ 991B ラ メニ テニ SAC ボ イン タ (2 1 : 2 2) な ら ば , SAC ポ 
イン タ (2 1 : 22) と (1E: 1F) を -ー3 し て S 
AC を 一 つ 沖 す (F AC の pull 操 作 に 相当 する ). 
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$9850 一 X 番 地 の 文 字 列 が 文字 列 ス タッ ク 領 域 の も の で あれ は ば, 
ゴミ 化す る ルー チン 

$ ぉ 8 5 9 7 一 ブロ ッ ク 転 送 (X 二 一 U 十 : Breg の バイ ト 分 ) 

$9 86 5 一 X 番 地 の SD に 対す る 文字 列 リ ンク ボイン タ を 格納 


代入 文 の 処理 は , 図 3・8・1 に 示す よう な アル ゴリ ズム で 実行 き 
れ ま す . 文字 列 代 入 は , SAC な ど に 革 積 され た , 評価 結末 を 表す SD を , 変数 
本 体 に 転送 し た 後 , 文字 列 リ ンク ポイ ンタ を 修正 する , と いっ た 手順 に な り ま す . 
だ た だし, 文字 列 ス タッ ク 領 域 中 の 文字 列 と SD と は 1 対 1 に 対応 (S D ぐ き 娘 字 列 
リン ク ) し て いな けれ ば な ら な い の で , 文字 列 を 表す SD が 変数 エリ ア 内 の も 
の で あっ て , し か も , その SD の 指す 文字 列 が 廊 字 列 ス タッ ク 上 の も の で ある 乾 
谷 に は , 新た に 文字 列 ス タッ ク 上 に 領域 を 確保 し ($9 7 90), 文字 列 を コピ 
ー (98E4 転 送 ル ー チ ン ) する と いっ た 処理 が な され て いま す ($9 1 BA 
ー91CA)。 DTIS 氏 モー ド の と き は ,。 も う 少 し 複雑 に な り , 上 記 以 外 に , ファ 
イル バッ ファ 中 の 文字 列 で あっ た 場合 に も , 文字 列 ス タッ ク 領 域 に 転送 し て か ら 
代入 いた し ます . 
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図 3・8・1 代入 文 (LET 文 ) 処 理 の ブロ ッ ク 図 


代入 文 S9195 
| 変数 サー チ (S950F) | 人 


変数 実効 アド レス Xreg…( 5 A : 5B) に 格 紛 


YーY の チェ ッ ク (SE6 一 Breg : JSR S9294) 
変数 の 型 ( 1 7 ) つ Areg :「P S H S、.A」 で , 変数 の 型 の 退避 
右辺 の 式 の 評価 (S 9 2 C 3) 


「PULS_ JA」 で , 変数 の 型 , 復帰 


$91AD CMPA_ せ 03 此 値 区 (ミキ SO 3) 
文字 型 LBNE SB335 
一 6 に 


SD 位置 (7 6 : 7 7 )--Xreg : 文字 列 実効 アド レス ー>Dreg 


ROOM モード 時 DISK モ ー ド 時 (0287 一 7FC4) 


ファ イル バッ ファ 先頭 
(71D8:D9) ミ D 
ぐ ( 33:34) 


に 才 か : 
D>(3F : 4 0 ) か つ 

X 有 【35:36) 
すなわち , ファ イル バッ フ 
ァ 上 の 文字 列 も 転送 を 行う 


文字 列 の 長 さ (し X) 一 Breg 

Dreg ミ (3F : 40) 文字 列 格納 用 エリ ア の 確保 (59790) 
また は 
Xreg<(35:36) | 確保 し た エリ ア に 転送 (文字 列 コ ピー) 


耳 生 人 ・D 9)or( 3 3:3 4) ミ Dreg 


Dreg ミ (3F:40) or Xreg く (35:36) 


に | 


SD の 位置 アド レス (Xreg)ー(6D : 6E) に 退避 

SD が SAC の も の な ら , SAC ポ イン タ を デ ク リ メン ト ( 一 3 ) す る 
Xreg*-(5A:5B) と し て , ゴミ 化 ($S9850): 古 い 変 数 デー タ を 消去 
Breg 三 3( バ イト 数 ) と し て , ブ ロック 転送 ルー チン $S8597 に より (6 

D : 6E) の 場所 に ある SD を (5A: 5B) の 変数 本 体 に 転送 


JMP や 9865 


De U 選 8B 


文字 列 リ ンク ポイ ンタ の 修正 ($S91865) 
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S 一 6 一 1 変数 サー チー 変数 の 検索 ・ 堂 録 な ど を 行う ルー チン 一 


| アド レス | $950F, 12, 14 ($94CE 一 $972B) 
$950F 一 一 最も 一 般 的 な エン トリ で , 代入 文 ・ 式 の 評価 を は じ 
め , ほとん どの 処理 系 が この エン トリ を 用 いる . 単純 変数 ・ 配 列 変数 の 各 要 素 な 
ど は この エン トリ か ら の 処理 に よっ て 全て 参照 する こと が で き , 各 要 素 の 実効 ア 
ド レス (変数 の デー タ 部 の 先頭 番地 ) を X レ ジス タ お よび (58 : 59) に 格納 
し て 戻る . 
$ ゃ 98512ーーD IM 文 用 の エン トリ で , B ロ レジ スタ に 0 以外 の 値 を 入れ て こ 
の 番地 を コー ル す る こと に よっ て ,。 D IM 文 実行 中 フラ グ (0 0 1 6 ) が 立ち , 
D IM 文 の パラ メー タ と し て 書か れ て いる 配列 の 登録 を 行う なお, D IM 文 で 
は 単純 変数 の 登録 を も 行う こと が 可能 で あり , 例え ば 「DIM_JA 多 , A(9 ), 
B!, B! (9 )」 な ど と いう 文 に よっ て , A%(0)CA(9), BI!(0)B 
「(9 ) は も ちろ ん の こと , A 欠 や B! ま で も , 初期 値 0 と し て 登録 する こと が で 
きる よう に な っ て いる . 
$ ゃ 85 ら 14ー-ーDEF_FN 文 ・FN 関 数 処理 系 か ら の エン トリ で す . これ ら 
の 処理 系 で は , 添字 評価 禁止 フラ グ (1 A) に $ 8 0 を 入れ て 呼出 し て きま す . 
(OO1A) = 添字 評価 禁止 フラ グ 
ゃ $ 0 0 一 一 普通 の 処理 用 で , 変数 名 の すぐ あと に 左 カ ッ コ を 見 つ 
ける と , 配列 変数 サー チ $95E6 へ 分 岐 する . 
$01 一 GET@・PUT@ 処 理系 か ら の オー ダ で , 配列 名 の 
み 検 索 し , 格納 番地 を X レ ジス タ に 入れ て リタ ー ン . 
上 記 以 外 一 左 カ ッ コ を 見 つけ て も 配列 と は みな さ ず , 単純 変数 用 
の 変数 検索 ・ 登 録 を 行う . 
リタ ー ン アド レス (スタ ッ ク 最 上 位 の 2 の バ イト) : この 値 が $ 9 2A 
F に 等 し い , 即ち , 単項 式 の 評価 ルー チン (3 一 8 一 3 節 ) か ら 呼 
出さ れ た 場合 に は , 未 登録 の 単純 変数 名 が 出 て くる と , 登録 は 行 
わ ず に , 値 O (文字 列 型 な ら 長 さ 0 ) が 書か れ て いる エリ ア の 先 
頭 番地 も B の 1B を X メ レジ スタ お よび (5 8 : 5 9 ) に 入れ て 戻る . 
(DS : DA) = 読込 み ポ イン タ 
変数 名 の 1 文字 目 の 位置 に あたる 値 を 入れ て お く 〈(1 文字 目 が 英 大 
文字 で な い 場 合 に は Syntax Error 発 生 と いう し くみ に な っ て いる )、. 
最も 一 般 的 に は , 変数 の 実効 アド レス が X レ ジス タ と (58 : 59) 
と に 格納 され る . 
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(1 A)= 1 の 場合 , 求め る 配列 変数 が 登録 され て いれ ば , リン ク 部 
の アド レス を X レ ジス タ に 入れ , A レ ジス ター ニ O と し て リタ ー ン し , 
未 登 録 の 場合 に は , A レ ジス タニ 1 と し て リタ ー ン する . 
(16) キ O (DIM 文 ) て 配列 の 登録 を 行っ た 場合 に は , 復帰 情報 
は 特に な い . 

また , 式 の 評価 か ら の エン トリ で , 未 登録 の 単純 変数 で あっ た 場合 
に は , X メ レジ スタ に $BB21B (前 述 ) を 入れ て 戻る . 


変数 サー チル ー チ ン は , 次 の よう な 各 プ ロッ ク に 分 か れ ま す . 


(1 7) 


(2 ) 
(3 ) 
(4 ) 
(5 ) 


(6 ) 


(7 ) 


(10) 


$94CE 変数 名 を テキ スト か ら 読 出し て , 変数 名 参照 用 
テー ブル (0568 一 0577) に 積み 込む ルー チン で す . 
$94FD…9 50 5 一 デル ファ ベッ トチ ェ ッ クル ー チ ン ] 、、 

和 朋 述 

$9506 一 9 50Eー 一 数 字 チ ェ ッ クル ー チ ン ) 

も ゃ 950F 災 数 サー チ ナチ ・ メ イン エン トリ 

$ も 95189546 一 (1 ) を 用 いて 変数 名 を ロー ド し た 後 , 型 宣 言 
文字 や DEF 型 指定 用 テー ブル (0 3 1F 一 0O338) を 見 て , 変 
数 の 型 を 判断 し て (0 0 1 7 ) に 格納 する サブ ルー チン で 「」MP 
ここ.$D2」 で 呼出 し 元 ($9516) へ 戻り ます 、 

$ も 9547 一 956F 一 一 (8) を 用 MG ッ ク 
で , 発見 され れ ば , その 実効 が 5A) 【 
て リタ ー ン : 発見 され な けれ ば , (7 ) へ 進む こと に な り ま す 
配列 変数 サー チ な ど へ の 分 岐 は PR 

$ も 9570-95AE - 末 登 y 録 の 単純 変数 を 新た に 写 錠 す る ブロ ッ ク で 
2 2 7 os スタ ッ ク さ 時 て らら 中 され で いる こと ま 
確認 する と , 登録 は 行わ ず , お よび (58:59) に $B21EB 
を 格納 し て リタ ー ン し ます . 1 その デー タ 
部 の アド レス を X と (58 :59) に 入れ て 返し ます 

$95AF-95C 参 品 テー ブル 上 の 変数 名 と 変数 エリ ア の も の と 
を 比較 し て いき , エリ ア 上 の 1 つの 変数 と の 一 致 不一致 を 検索 す 
る ルー チン で , 一 致し た ら ゼ ロフ ラグ を 立て て 戻り ます . 

$ ぉ も 95C7 一 9 5D8 一 一 変数 の 型 (0 0 1 7 ) と 変数 名 の 長き さき から, 受 
数 識別 子 を 作成 する ルー チン で す . 

ぉ 95D9-95E5 一 一 配列 変数 サー チ に お ける , 添字 の 評価 を 行う た 
め の ル ー チ ン で , 使用 し て いる 主 な サブ ルー チン は $ 9 2 BE( 式 
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の 評価 十文字 型 エ ラー の 型 判 断 ), も BC7 4 (整数 型 に 変換 ) な ど 
で 。 評価 結果 が 負 の 整数 に な っ た 場合 「Illegal Function Call」 
エラ テラー を 発生 きせ ます . 
(11) $95E6 一 9 66D 一 一 配列 変数 サー チ を 行う ブロ ッ ク で す . 
D IM 文中 で , 既に 登録 済 の 配列 どっ た 場合 , 「Duplicated Def- 
inltion」 エ ラー を 発生 きせ る 一 方 , 未 登録 の 場合 . (1 2 ) へ 進み 登 
録 を 行い ます . D IM 文 で な い 時 , 登録 済 で 次 元 が 一 致し た 場合 (一 
致し な いと . 「Subscript Out Of Range」 に な る ) に は , (1 
3 ) へ 入り , 要求 され た 添字 に 対す る 有 要素 の 実効 アド レス を 割 出 す 
一 方 , 未 登 録 の 場合 に は (1 2 ) へ 進ん で 暗黙 定義 (DIM 父 に よ 
ら な い 配 列 定義 ) に よる 登録 を し た 後 (1 3 ) へ 入り ます . 
(12) $966E<96BB 一 一 配列 変数 を 新た に 登録 する ブロ ッ ク で , DI 
M 文 の 場合 に は オー ダ さ れ た 次 数 (添字 十 1 の 値 ) を 格納 し な が ら 掛 
合わ せ て いき , 配列 変数 エリ ア 内 に 格納 領域 を 確保 し ます . デー タ 
部 を 全部 $ 0 0 で 埋め . リ ンク を 計算 ・ 格 納 し て リタ ー ン し ます . D 
1 M 文 以外 の 場合 は , 暗黙 定義 時 の 添字 1 0 に 対す る 次 数 ゆ $0B と 
な る の が 主 な 違い で , 領域 の 初期 化 が 終わ る と リタ ー ン せ ず に (1 
3 ) に 進ん で , 要求 され た 添字 に 対す る 実効 アド レス を 計算 し ます . 
(13) $96BCC96F0O 一 一 配列 の 添字 に 対す る 実効 アド レス を 計算 し て 
X レ ジス タ と (5 8 : 5 9) と に 格納 する ブロ ッ ク で す . 例え ば , 
「 DIMLLA (di, dz, ds)」 で 宣言 され た 配列 変数 A に 対し て , 
「A (Xi Xs。 X3)」 を 参照 し よう と し た 場合 , 実効 アド レス は 
[A (0, 0, 0) の 位置 〕] 十 型 * (Xi 十 di* ネ (Xs 十 d ぅ ※Xs)) 
な る 式 で 与え られ ます . 添字 の 順序 に 注意 し て くだ さい . 
(14) $96F1-972Bー (12) や (1 3 ) に お ける 乗算 を 実行 する 
サブ ルー チン で す . 
これ ら の 処理 系 に よっ て , 2 一 2 節 で 述べ た よう な 構造 の 変数 エリ ア が 形成 さ 
EC US 0) です 
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3 一 8 一 2 式 の 評価 ルー チン 


「 アド レス | $92C3, 92C9, 92CB, 92CD 一 $94C1 
機能 | 代入 文 の 右辺 や 関数 の 引数 な ど に 使わ れ て いる 式 を 評価 し て , その 
結果 を FAC1 に 格納 し て リタ ー ン する (文字 列 式 の 場合 , 評価 結果 の 文字 列 を 
表現 する SD( 一 般 的 に S AC で ある 場合 が 多い ) が 置い て ある 番地 の 値 を F A C 
1 に 入れ て 返す )、. 

$9 2C3 一 一 最も 普通 の エン トリ 

$ も 9 2C9 一 一 PRINT 文 中 の TAB( ) 関 数 処理 系 な どか ら の エン トリ 

$9 2CB リカ ー シ ブ コー ル (再帰 的 呼出 ) 用 の エン トリ ボ ポイ ント 

$9 2CD [呼出 直前 に ピッ クア ッ プ し た 演算 子 の 優先 順位 を 入れ て 〕 


| 入力 情報 $9 2C ロ エン トリ の 場合 . ワー クレ ジス タ (0 0 5C) に 直前 の 


演算 子 の 優先 順位 の 値 を 格納 し て 呼出 す . 


$ 9 2CD エ ント リ の 場合 , A レジ スタ に 直前 の 演算 子 の 優先 順位 
を 格納 し て お く . 

| 復帰 情報 | F AC 1 に , 式 の 評価 結果 の 数 値 : (0 0 1 7 ) に その 数 値 の 型 が 
格納 され て 終わ る . 


|IWORK | FAC1 (7 4 一 7C) と , その 数 値 型 (0 0 1 7) 
FAC2 (8 2 一 8 A) と , その 数 値 型 (005D) 
(0 0 5C) = 式 の 優先 順位 一 時 格納 用 レジ スタ 
(0 0 15) = 倍 精 度 フ ラグ 
(0 0 5E) = 比較 演算 子 ピ ビ ピックアップ ・ 参 照 用 レジ スタ 
(008B) = ニ FAC1 の 符号 ① FAC2 の 符号 
( 両 F A C 符 号 部 の 排他 的 論理 和 : 5 章 参 照 ) 
(D9 :DA) = 汎用 読込 ボイン タ 
(B6 :B7) ニ ボ ポイ ンタ (D9 : DA) 一 時 退避 用 
(7Eー8 0) = テー 時 的 SAC (文字 列 比較 で 用 いる ) 
(23:24) ニニ リタ ー ン アド レス 一 時 退避 用 
※ (886C 一 8 8 8F) に 演算 子 優先 順位 メ ・ エ ント リ ・ テ ー ブ ル が ある 
S U り 昌 | $D2 ル ー チ ン : $D 8 ルー チン 
$ も 8DAA つ メモ リフ ル テ ス ト 
$9 1 ED 一 単項 式 の 評価 ルー チン ( 炊 節 ) 
$ ぉ 9 7 4 D つ D レ ジス タ に 形成 され た 整数 型 デ ー タ を 最終 評価 
$ 9 8 AE 一 文字 列 加 算 (SUB と し て $9 8F4, F8 を 使う ) 
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$B23 6 一 除算 実行 ルー チン 
$B3C0… 符 号 拡張 ルー チン 
$BAF7 一 べ キ 乗 (^) 処理 
$BC7 4 一 整数 化 : $ お BCCD-- 倍 精度 化 : $BCE0- 単 精度 化 
BCAET (文字 型 エ ラー の ) 判断 ルー チン 
$ ふ BCFF… 整 数 型 き 単 精度 型 ・ 型 変換 ルー チン 
※$ ふ も B236-$ も BCFF に つい て は , 第 5 章 を 御 参照 下さ い . 

| 終了 条件 | 演算 子 が 入る べき 所 に 演算 子 以外 の 文字 (例え ば , 文 の 区 切り ) が 
ある と き 「PULS PC, A」 で この ルー チン を 抜け 出す . また 
リカ ー シ ブ コー ル 時 。 スタ ッ ク 上 に プッ シュ し て ある 演算 子 優先 順 
位 が , 後 か ら 読込 ん だ も の の 順位 以上 で ある 場合 に は , 「PULS 
PC, A」 に よっ て 先 の 演算 子 に 対す る 処理 を 行っ て いた 式 の 評価 
ルー デン ぷと りり リグ ラーン する 。 


説 | 式 の 評価 ルー チン は , 行 番号 定数 な どの 若干 の 定数 を 除い た ,。 あら 
ゆる 引数 (コマ ンド 関数 の パラ メー タ ) を 表現 し て いる 式 の 評価 を 行い ます . 
昌 5 草 に 述べ て ある 各種 の 数 値 演算 処理 系 や 文字 列 演算 な ど へ の 分 岐 を 行う 本 令 
祭 地 で も あり ます . 

さて , 数 式 中 の 演算 子 に は 優先 順位 が あっ て , 例え ば ,「 乗 除算 (*, /) は 加 
減算 ( 十 , 一 ) より も 先 に 行う 」 な ど と bien な っ て いま す . 

前 から 順 番 に 評価 し て いく だ け の こと な ら ば , 単純 な アル ゴリ ズム で 済み ます 
が 。 間 鼻 子 の 優 策 位 を 考 万 し て 尊 鼻 の 後 先 を 判断 し 。 さら に 。 痕 数 処理 や や カッ 
コ で くく られ た 項 の 処理 まで も 行う と な る と , 非常 に 複雑 な アル ゴリ ズム が 必要 

と な り ま す . これ ら の 同 題 は 。 リカ ー シ プ コー ル (再帰 的 呼出 : ある ルー ナン が 
H 分 目 身 を サブ ルー チン と し て 呼出 すこ と ) と 呼ば れる 手法 を 用 いる こと に よっ 
て 解決 し て いい ます. リカー シブ コー ル と いう の は ,。 PASCAL な どの 高級 言語 
で 好 ん で 用 いら れる 手法 で す が , この よう に イン タブ リタ が 中 間 言 語 を 解釈 し て 
実行 に 移す 上 で 必要 不可 欠 な も の で す . それ で は , 図 3・8・2 に , 式 の 評価 ル 
ー チ ナン の デア ル ゴリ ズム の 流れ を 表す ブロ ッ ク 図 を 掲げ ます . 

優先 順位 の 判定 を スム ー ズ に 行う た め , リカ ー シ ブ コー ル の 時 間 (呼出 直後 ) 
に , 先 に 読込 ん だ 演算 子 の 優先 順位 を 表す 値 を スタ ッ ク 上 に プッ シュ し て お きま 
す . 優先 順位 を 表す 値 は $28 ("IMPY) 一 $7F ("ムイ ベ キ 乗 ) の 範 
囲 に あり , 後 か ら 読込 ん だ 演算 子 に 対す る 値 と .。 スタ ッ ク 上 の 値 と を 比較 する こ 
た 現し て いま す . も し , 後 か ら の 値 の 方 が より 高位 


と に よっ て 優 先 順 位 の 判定 を 実 
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式 の 評価 ルー チン の ブロ ッ ク 図 


$ 92C 3 ( ポイ ンタ (D9:DA) デ クリ メン ト 


※ 演 算 は 〇 て で 代表 させ て あり ます . 

※「 リ カー シブ 」 と 書い て ある の は 
「 リ カー シブ コー ル ( 再 帰 的 呼出 ) 」 
の 略 で す . 


S 9 2C9 ( 優先 痕 位 の 区 切 $S 0 0 を と る ) 


ゃ 92CD 


優先 位 を スタ ッ ク に プッ シュ PO 
0 gs ンー 
S32D4( 早 項 式 の 評価 ($91ED) 0 


S92D7 ( 演算 サー チ 


( 後 ) ミ ( 先 ) と 
S9433 レフ 

双 王 za 
S92E9 


比較 演算 子 ? 
ー 本 no " 
、 2 項 演算 子 ? “ 

yes  ( 後 ) ミ ( 先 ) 


人 比 才 )ー*《 リ ター ン ) 


no _/ 


$ ゃ 9302 


ゅ ゃ 93Z/【 


(文字 列 の *+* 


ゆき の! 


し 単 精度 化 


S9336 ( 
( 各 処 理系 の エン トリ 


S93BB 


S93BF 


比較 演算 。 | | ーー 一 
($9465)| | 82380 
より コー ル | [ | 論理 演算 

い saas 隊 倒し BI9M 0 


四則 (比較) 演算 
[ 十 , 一 , *※, 比較 | 


S 9 3 4 4[ FAc 1( 演 算 子 の 左側 の 評価 結果 ) 
| を スタ ッ ク に ブッ シュ (9 3E8) 


S93477 本 ーー ーーーーーーーーー… 
| リサ カー シグ コー ル ($92CB) に よっ | 
_ っ て 演算 子 の 右側 を F AC 1 に 評価 


SQ まう 58 
FAC2 が |FAC1 倍 精度 化 
倍 精 度 型 な ら | 倍 精 度 フ ラク セッ ト 


うう 4 ト 。 Cc 2 に ブル ) 
| ($9411) 


- ト 間 還 昌 胃 昌 ー ma ュー ル 弄 ! ナ 、 に 
S9359( FAC1 の 型 間 所 )) メ ルン 


、FAC le>FAC2 ) 
※ 双 方 整数 型 の 場合 , 一 度 
し か 交換 を 行わ な いた め 
FAC1 と 2 の 販 序 が 他 
の も の と 異な る . 


FAC1e>FAC2 


. 型 合せ (精度 の 高い 方 に ) 


ゃ 93CZ 


($BC74)($93E8) 
 FAC 1 整数 化 ) 


論理 演算 処理 系 (Dreg) 

F AC 2⑲9Dreg 
S93B6 の 「JSR こ ..X」 
に よっ て コー ル す る . 


大 小 此 較 :$BE4 4 


再び 洒 算 子 を サー チ 


S944A 
aa う 人 4 っ / 
(SB3C0) | 

な ど 


$S9465 


| 数値 比較 …… 
四則 演算 (S93 
4 4 ) を コー ル 


( 文字 列 比較 ($9468B 


IF AC 2 に プル 


べ キ 乗 処理 系 


$93BD 一 9384 
FAC 1 を >FAC2 
交換 (出現 順に ) 


欠 数 除算 未 


"ーー 


| スタ ッ ク か ら 5 第 1 引 1/ 1「ACLMFAL2 


し 数 を F AC2 に ブル 


DregーF ト AAC1 
| 整数 型 宣言 
S974D 


5S3358 の 'RTS」 に より 分 岐 


四則 演算 ・ 比 較 演 算 の 各 処 理系 


整数 : 
実数 ・ 


FAC1 ⑨FAC2 
FAC2 ⑨FAC1 


十 :$BD4D 
涼 :$ ふ BD73 


ー:$BD3F 
グ :$S93CD 


※ 四 則 : 結果 は F A C 1 に . 
※ 除 算 () は 最後 SB 2 3 6 へ . 


文字 列 最 欠 評価 ( S 9 7 AD) ) ぁ ノ 


の も の で あっ た 場合 , さら に リカ ー シ ブ コー ル を 重ね て 後 の 方 の 処理 を 優先 し て 
行う 一 方 , 先 に 読込 ん だ 方 が 高位 か 等 し い 優 先 順 位 で ある 場合 に は リタ ー ン し て 
移 の 導 算 子 の 処理 を 行い ます (この リタ ー ン は ,。 スタ ッ ク の 位置 が 鐵 わ な いよ う 
に 。 RT S 和 命令 で は な く !PULS PC。 A」 に よっ て 行わ れ ま す ). 従っ て , 
中 算 子 が 優先 順位 の 低い 順に 並ん で いる よう な 式 で は , 演算 子 の 数 だ け リ カー シ 
ジコ デー ル ガ が 卓 ね られ る こと に さり ます 。 な なお, この ルー チン の 人 UN(S9209) 
で は , 優先 順位 の 区 切 と し て $ 0 0 を 取 込 ん で お り , リカ ー シ ブ コー ル 用 の 入 日 
人 
0 5 人 こ に 蓄え て 入る か , A レ ジス タ 内 に 置い て 入る か の 違い だ け で す ) 


PE 単項 式 の 評価 ルー チン ($ 9 1ED) 
が 特に 大 きく 重 妥 な も の で , 当 算 子 を は さん で いる , 変数 ・ 関 数 ・ 定 数 ・ カ ッ コ 
で くく られ た 式 な ど を 評価 し て F AC 1 内 に 結果 を 格納 する 役割 を 担っ て お り ま 
す . 式 の 評価 ルー チン と 単項 式 の 評価 ルー チン と の 関係 を 模式 的 に 表す と , 次 の 
よう に な り ま す . た だ し , 2 項 演算 子 を Y 〇 * で 代表 きせ ます . 

ー 式 の 評価 一 
式 の 評価 


単項 式 の 評価 単項 式 の 評価 ) O[ " 


単項 式 の 評価 と リカ ー シ ブ コー ル と に よっ て , 演算 子 の 両側 の パラ メー タ が 出 
揃い , 種々 の 前 処理 が 終っ た 後 , 各 処 理系 へ 分 岐 す る わけ で す が , 各 処 理系 の エ 
ント リ 番 地 は ,(8 8 6C 一 8 8 8F) の テー ブル に , 優先 順位 を 表す 値 と と も に 
書か れ て お り , その 様子 を 図 3・8・3 に 記し て お きま す . 注意 し て 欲し いこ と 
は ,(8879:887A) に 書か れ て いる $BE 4 4 は , ベ キ 乗 マ ^Y 処 理系 の エ 
ント リ で は な く , 比較 演算 処理 系 の エン トリ で ある こと で す . ベ キ 乗 の 場合 , 優 
先 順 位 ま 7 F を 見 た 晃 間 に べ キ 乗 前 処理 プ ブロッ ク (939Eー$93AF) に 
入り , この プ ブロック の 最後 に 書か れ て いる $BAF 7 へ の 」JMP 命 令 で べ キ 乗 処 
理系 へ と 分 岐 す る わけ で す . 

比較 演算 子 に 関し て は , 少し 説明 を 加え て お か な けれ ば な り ま せん . 
比較 演算 子 に は ,。 "< く Y, マミ テマ Y マ , ツマ > マ の 3 種類 が あり , 重複 し な いか ぎり , 
一 時 に 3 種類 まで 指定 する こと が で きま す . 3 種類 の うち どれ が 指定 され て いる 
か を ピッ クア ッ プ する 処理 は ぉ お 9 2E1 一 $92F6 で 行わ れ , その 結 朱 は , 以 
下 の よ うに , ワー クレ ジス タ (0 0 5E) の ビッ ト 0 一 3 に 格納 され ます ( 各 演 
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凶 3・8・3, 演算 子 の 優先 順位 ・ 処 理系 エン トリ 番地 の テー ブル 


優 玩 順位 前 和 は 
フ SBD4D 
BD3F 
BD73 
人 6 
$BE4 4 
94A8 
9 4AD 
9 4B2 
94B7 
9 4BOC 
BE33 
BEO0C 


S8878 番 地 の $S7F は , べ キ 乗 の 優先 順位 で ある が , 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


/ 
// 
// 
// 
が 4 
// 
// 
// 
// 
4 
// 


中 間 コ ー ド SD 9. 


ゃ DA, 


ゃ 上 
ゃ 上 


S8879 一 A 番 地 に 書か れ て いる S B E 4 4 は , べ キ 乗 処理 系 の 
エン トリ で は な く , 数 値 型 の 大 小 比 較 演 算 の 処理 系 エン トリ な の で 


注意 し て 下さ い . 
べ ベ キ 乗 が 最も 優先 度 が 高く . 


車軸 左 二 ("る スパ 。」 


も 届 ど がら っ てい ます. 


優先 順位 を 表す 値 は 大 きけ れ ば 大 きい 程 , 優先 度 が 高い わけ で . 
YIMPY が 最も 低く な っ て いま す . 
S886C 一 8D の テー ブル に 載っ て は いま せん が , 

マラ テマ ) の 優先 順位 は $ 6 4 , 単項 演 
算 子 *ー" ( 負 符 号 ) の 優先 順位 は $ 7 D, 否定 演算 YNOTY は ., 
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算 子 に 対応 する ビッ ト が 1 で ある 時 。 その 演算 子 に 対す る 指定 が あっ た こと を 表 
し ます ). 


比較 演算 処理 系 (数 値 型 :$BE4 4 : 文字 列 型 : や 94 6 B) で は , ( 先 の パ 
2 sk) ( 後 の パ ラメ ー タ ) な ら 和 ゆ 0 1 を , ( 先 ) 三 ( 後 ) な ら $ 0 0 を , ( 先 ) 
>( 後 ) な ら $FF を , それ ぞ れ B レ ジス タ に 返し て きま す . この 値 に $0 1 を 足 
し て 右 へ 1 ビッ トロ ー テ ー ト (キャ リー 取込み が カギ ) する こと に よっ て , 「! ぐ 」 
の 時 は |11010 が 、「=」 な ら [0L| が ,「>」 な ら |010 人 1 が それ ぞ れ B レ ジス タ の 下 
位 3 ビッ ト に 入り (上 位 5 ビ ピッ ト は 0), (0 0 5E) と の AND を と る こと に よ 
っ て , 指定 され た 条件 が 成立 する か どう か を 知る こと が で きる (0 な ら 衝 件 不 成 
Y 立 ) わけ で , 成立 し た 場合 に は $FF を B レ ジス タ に 読込 ん で , 不成立 の 場合 に 
了 ) 符号 拡張 ルー チン $B3C 
0 を 呼出 すこ と に よ 前 者 の 場合 に は 「 一 1 」 が , 後者 の 場合 に は 「0」 が F 
AC1 ( 設 数 型 と な MAP 
も う 一 つ 説 明 し て お きた いこ と が あり ます . それ は , リカ ー シ ブ コー ル の 前 後 
で ,. FAC1 か ら ス タッ ク 上 へ の ブッ シュ ($9 3E8) お よび , スタ ッ ク か ら 
FAC2 へ の プル ($9 4 1 1 ) の 2 つの 操作 が 必ず 加え られ る こと で す . 
これ ら の サブ ルー チン を 呼出 す と ,。 まず ,。 リターン アド レス を スタ ッ ク か ら 説 込 
ん で (LD 共 ここ 。S 二 士 ),。 さらに , ワー クレ ジス タ (2 3 : 2 4 ) に 退 遊 させ て 
し まい ます . 次 に , 前 者 の 場合 は FAC 1 の 数 値 . その 数 値 型 の 順に , 図 3・8 ・ 
"の よう な で スタ ッ ク 上 に 杭 上 人 の 場合 は スク ッ ク か ら F ん を に 半 2 
出し ます (読出 し た デー タ の 数 値 型 は ワ ソーク レジ スタ (005 に 格納 され る ). 
生生 A 
ーー$ 2 3 j JMP . 又 」 で 行い ます . 


134 


図 3・8・5 FAC の プッ シュ と プル 


1 整数 型 の 場合 2 単 策 度 実数 型 3 倍 本 度 実数 型 
P 一 | 数 値 型 S 0 2 SP 一 一 | ( 型 ) S04| SP- 一 | ( 型 ) S08l 
+ 1 (上 位 6byte) | 12Jrx。 。 寺 1| (指数 部 ) 1 | (指数 部 ) 
2 | (下位 6byte) | ) +2 | (仮数 部 ) || +2| 上 位 | 
mm | 3 byte | | | 
[ | (仮数 部 ) | [7byte 
」 +5 | (符号 部 ) | | 
| に で 生 
。 も +9 | (符号 部 ) | 


る 実数 除算 処理 系 も 93CD 一 $93E7 


他 の 2 項 演算 処理 系 で も 同じ こと で す が , この 処理 系 に エン トリ する 際 に は 
FAC1 と FAC2 の 数 値 型 を 合わ せ て お く 必 要 が あり , その よう Z 処理 は 分 映 
前 に 通過 し た $9 3 4 4 番地 以下 で 既に 実行 済み で す . 

整数 型 で 入っ て きた 時 に は , 双方 の FAC の 数 値 を 単 精度 実数 に 変換 ($ BC 
FF) す る た め に 「FAC1SFAC2」 の 交換 を 一 度 行い ます の で , 演算 順序 は , 
oeinaniaaoeeinnin ni220 

な り ま す (この 処理 系 を 単独 で 使用 する 場合 に は 妥 注 意 ). 

本 Pentnhod こ 格 納 し て お く 吉 も 重 
要 で す (第 5 章 参照 この 後 , A レ ジス タ に FAC1 の 符号 を 。 B レ ジス タ 
に FAC2 の 答 号 を 読込 ん で か ら , 除算 実行 ルー チン ($B236) に 入り , 
「EFEAC2 プ EAC1」 を 実行 し ます . 


る 論理 演算 プロ ッ ク 94A8 一 94C1 


論理 演算 子 を YO 〇 『Y で 代表 さき せる と , 「(FAC2) ⑨ (D レ ジス タ )」 の 演算 結 
を D り レジ スタ に 格納 する こと に な り ま す . 


< 整数 型 デ ー タ 最終 評価 ルー チン も 974C,.$ も 974D 


っ た 手順 の 処理 が 行わ れ ま す ( 後 の 3 公 np 人 ( は $」 BCA0 以 下 に ある )、 
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3 一 8 一 3 単項 式 の 評価 ルー チン 


$91ED ($91E8 一 92BD:$C5E2CC63C) 


機能 | 変数 ・ 関 数 ・ 定 数 ・ カ ッ コ で くく られ た 式 な どの 実効 値 を 評価 し て , 
F A C 1 内 に 結果 を 生成 する . 式 の 評価 ルー チン ($9 2C3) と 対 の 関係 に あ 
る ルー チン で あり , その 関係 は 前 節 で 述べ た と お り で ある . 
| WORK | FAC 1 と その 数 値 型 レジ スタ (0 0 1 7 ) 
(00AC) ニ エ ラ ー コ ー ド ・ レ ジス タ 
(AD : AE) ニ エ ラ ー 行 番号 ・ レ ジス タ 
(D 9 :DA) = 汎用 読込 ポイ ンタ 
(0 2 7 2) = 拡張 フッ ク (3 バイト ) 
(0 278-) = / 
(0 27E ン ーー) = / 
@ 外 部 ルー チン (リカー シブ コー ル : $9 2C3, CD) 
$9 4FD つ アル ファ ベッ トチ ェ ッ ク 
$9 5 0F 一 変数 サー チ 
$9 7 4D 一 Dreg 内 の 整数 デー タ の 最終 評価 
9 7 9 日 一 文字 列 読出 
9 9 BC… 第 2 引数 の 評価 用 (M 1D$ 等 の 前 処理 用 ) 
$9 9F 4 一 ポイ ンタ (D9 : DA) の 復帰 (文字 列 処理 用 ) 
9E7Eー 婦 定数 の 読出 ・ 評 価 
$A8 2A 一 FN 関数 処理 系 
$A9A0USR 関 数 処理 系 
$B3 0 1 一 (Xreg) 番地 の 変数 型 数 値 を FAC1 に ロー ド 
$BC74 つ CINT (整数 化 : YNOTY て で て 使用) 
$BCA5, AE… 型 判断 (数 値 型 エ ラー, 飽 文字 列 型 エ ラー) 
$BCE0 一 CSNG ( 単 精度 化 : YSQR"Y な どの 前 処理 ) 
$BD19 一 FAC 1 内 の 符号 無し 整数 (7 6 : 7 7 ) を 上 単 精度 化 
( 行 番号 定数 。 "YERL", & 定 数 な ど て で 使 用) 
$ も BDC9 一 FAC1 の 符号 反転 ("マー て 使用 ) 
久 沢 用 性 の 高い 内 部 ルー チン 
9 28 8 一 左 カ ッ コ チェ ッ ク 十 式 の 評価 士 右 カ ッ コ チェ ッ ク 
$ ゃ 9 28C- 右 カッ コチ ェ ッ ク 
9 28F- 左 カッ コチ ェ ッ ク 
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も 9 29 2 一 コン マチ ェ ッ ク 
$ 9 2 9 4 任意 の 文字 コー ドド チェック (BB レジスタ) 
※ 以 上 の も の は , 様々 な 処理 系 か ら 頻 役 に コー ル さ AI て 


この ルー チン は , 式 の 評価 と 文字 列 加算 の 2 向 所 か らし か 呼び 出れ 
巨大 で し か も 重要 な も の と な っ て いま す . その アル ゴリ ズム の 概略 は 
メ 5 に 示す と お り で す が , 巨 大 な わり に は 単純 な 流れ で あり , この 図 を 見 
れ ば ほとん ど 把 握 す る こと が で きま す . 

さて , $9294ー$929F で は , ポイ ンタ (D9 : DA) の 指す 位置 に ぁ 
Rh 
れ ば 「Syntax Error」 発生 , 肥 ち .$92A0 に 分 岐 ) 処理 を 行っ て お り , 独立 
し た サブ ルー チン と し て も 使用 きれ ます が , 二天 征 本科 当 
リエ ーション が あり , それ ぞ れ 使用 頻度 の 高い も の で す . メモ リ 本 を EE ける だ 
め に 工夫 が 施 ほ きれ て いま す の で , 参考 の た め に ソー スリ スト を 掲げ て お きま す . 
ュー ザ ・ プ ログ ラム の 中 で , コン マチ ェ ッ ク と 式 の 評価 また は 変数 サー チ を 組合 
わせ る こと に よっ て , EXEC 文 に 引数 を 持た せる こと が 可能 で す . 


$9288- ふ も 92A4 の ソー スリ スト 


S9288 8D 05 BSR S928F 左 カ ッ コ チェ ッ ク 
DD きき 7 BSR S92C3 式 の 評価 (リカ ー シ ブ フ プ ) 
S928Db @66@ 29 LDB 壮 S29 話 カッ コマ ) Y 
8 C CMPX 壮 ーー 火 の 2 バイ ト を スキ 
S928F C6 28 LDB せ $S28 左 カ ッ コ ャ マ (マリ ーッ フ す る た め の ダ ミ 
' ーー へ 、 
S9292 C6 2C LDB #S2C ヨシ ンマ ヤマ 。 マ 
S9294 9E D9 LDX SD9 ボイン タ 読 込 
A6 84 LDA  ,X 文字 コー ド 読 取 


34 04 PSHS B 


Al1 EO CMPA  .S 十 | 
Breg に 入っ て いた コー ド と 等 し いか ? 
26 02 BNE S92AO | 
0OE D2 JMP SD2 ーー ポイ ンタ (D9:DA) を イン クリ メン ト 
し て リタ ー ン 
S92AO C6 0O2 LDB #$02 


Syntax Error 先 生 
7E 8DD1 JMP S8DD1 /) 
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順 式 の 評価 ルー チン の ブロ ッ ク 図 (2 の 1) 


S9 1ED : 単項 式 の 評価 エン トリ 


- 拡張 フッ ク (S0272) 


YeS 


( 文 の 区 切 ? ) Missing Operand エラ ー(S91E8) 

lno 「 pb9205 SBDi9 
(SFE" 数 値 定数 *? リーー SF 2 : 行 番号 定数 ) 一 一 *( Lw( 単 精度 化 
" $9212 ー | 
S 0 1 : 1byte 整 定数 
S921B ー 
wtS0O02・ 2byte 整 定数 
$9225 
実数 型 定数 


$S91F5 


ゃ 91F/ 


ー の テコ ーー せ コ 


mo 間 
、$B301 を 使用 / 


、 SS る S92AC : 変 教 読込 ブロ ッ ク 


| (メキ ) み FAC1 
(SB301) 


10 


理 サ ー チ (350) 


YES 


0 S92A5 


※ 数 SD の 番地 一 FAC 1 


$923A 
ー( $SD9Y 十 Y( 正 符号 ) か ? 

yeS ーーー_ 

振り 出し へ 


負 符号 の 優先 順位 
らら /D を Areg に 持っ て 


ん SBD1igl 


F A C 1 の 符号 を 反転 


の 9 E 


の 文字 列 定 数 読出 ( 9 7 9 8 


0 
S924A 
呈 ーー 、 YeS 


no S924E 
S925A 
S26Y&Y か ? 


IQ 
S9260 1 
本 ー ーー 
SD4YERRY か 7 ます サミ 


Ss926C 陸 >3<70 


SD3YERLY か 2? 


| TO 
ゃ 92/93 ゅ SA9A0O 


SD2YUSRY? ) 
。 mo 。 SA82A 

SCFYFNY? ーー テ ( FN 関数 処理 系 
S927F ーー 


TO 
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図 3・8・6 単項 式 の 評価 ルー チン の ブロ ッ ク 図 ( 2 の 2) 


「10 


_ _ 。 Syntax 
ヒ YfFOY 


S9Z685 


SFF(2 バ パイ トコ ー ド )7 し カッ コ ? 


Ke > DE まま 介 則 で 邊 人 NT 写生 よ ド 人 尽 間 プル し ビ 0S の 処 傘 JMPL_LSD2 | 


拡張 フッ ク (027Eー0280) 
S D 2 ルーチン: A 一 B( 次 の コー ド が Breg に )  ) 


YDATEY no 


JMP、.[S02 0 1] : 拡張 関数 の 処理 ) 


( YSGNY- 


※ 拡張 フ ブック 
(0278 一 A) 
J あり 


隊 SR、,S 9 : fYSO0RY。。 
| yes JSRS9288 |?3 0 RY 店 寺 訂 人 


本 当 夫 mw み 
式 の 評価 | 
| 末 導 コチ モツ グ ドド 


YSGNYーYPENY | 
( 1 引数 の 関数 ) | 


ーーー 一 ( 各 処 理系 コー ル 
ーYDATE" (引数 な し ) / ーーーーーーー 一 


YRNDY 


YYINSTRYーYSTRINGY し 左 カ ッ コ チェ ッ ク ., 


fyMIDSY ノ YULEFTSY ノ YRIGHTS マ * ( 第 2 引数 読込 : 引数 プッ シュ 


左 カ ッ コ チェ ッ ク リ 


( 式 の 評価 ) 


の と の 
(S92927) 


' 最終 評価 : 数 値 型 SBCAE : 婦 字 型 つ S97AD 


yeS 
$7386: 3 


S8077: (YLPOSY か ? 


yes 


各 処 理系 の エン トリ 番地 が 書か れ て いる ジャ ンプ テー ブル 
$S8816: B3BE B472  B3D5 E190 
(SGN) (INT) (ABS) (DATE 処 理系 ) 
735D 7ZC195 763D 7640  。 チア チ 5A4 
SN EU eV) (CVS) (DSKIS 処 理系 ) 
$S8075:C947 
(LPOS 処 理系 ) 
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協 4 昔 入 太 力 地 奄 氷 


4 一 1 入出 力 と ファ イル 


FM 一 7 の コン ピュ ー タ 本 体 (キー ボー ド を 除く ) と , 周辺 装置 (以後 “デバ 
イス と も 記し ます ) と の や り 取 り は , CRT へ の 出力 の 一 部 を 除け ば , 全て 同 
ジリアン ルー チン と 同じ し 式 で 入 の あれ ます 

ここ で 。 周辺 装置 と は 。 キー ポ ボード, スク リー ン 。 カセ モ セット,。 プリ ンタ ディ 
スク 。 RS 一 232C な ど を 指し 答 々 “KYBD!: 。 SCRN IE” 。 CA 
S0:( 。 だ LPTO ID 。 0) ーー パ 3j) に 。 COMO ii ーー COM4・ 
と いう デバ イス 名 を 持っ て いま す (文法 書 2 。8 参照). 

婦 法 書 の 2 。8 節 を 見 れ ば わか る よう に ,。 ファ イル ディ スク リプ タ を 必要 する 
BASIC の コマ ンド ・ ス テー トメ ント は , ファ イル と いう 概 候 で 周辺 装 軒 を 統 
し , 答 々 の デバ イス に 対し て の 考 應 は な され て いま せん . コマ ンド ・ ス テー ト 
メン ト の 処理 系 が 。 デバ イス 名 を 手がかり に , デバ イス に 応じ な サブ ルー チン を 
呼び 出す と ころ で 初め て デバ イス が 選択 され ま す (- 部 の も の は , デバ イス 名 を 
見 た 点 で 老 感 され る も の も あり ます ). 

この よう に ファ イル を 導入 する と 周辺 装置 の 違い を あま り 意 識 す る 必要 が な く 
な る の で (た だ し , 入力 と 出力 で 若干 の 違い が 出 て きま す ), 入出 力 の 大 部 分 は 
ファ イル と いう 形 で 扱わ れ て いま す (プロ グラ ム も 当 釣 プロ グラ ム フ ァ イル と い 

デイ ル で 航 わ れ て ゆい ます) そこ で この 本 で ば は 。 ラ ァイル と ファ イル ディ ス 

クリ プ ブタ を 中 心 に 入出 力 の 形態 を 捉え て いく こと に し ます . 


4 一 1 一 1 ファ イル と シス テム ファ イル ディ スク リプ タ (SFD) 


ファ イル と は ,「 入 出力 媒体 上 の 誰 理 的 な デー タ 集 合 」( 文 法 書 2. 8) の 
こと を 指し ます が , 周辺 装置 と の デー タ の や り 取 り を 二 だ た め に 設け られ て い 
ます 。 2 ログ フス ム も テーク も すべ て アデ アイ ル と いう 形 で 志ん られ, アァ イル ディ ニン 
クリ プ ブタ で 指定 され た デバ イス と の 間 で 入出 力 を 行い ます . キー ボー ド や スク リー 
ン ブリ ンタ な ど は ,- 見 その 価 属 が 希薄 な よう で す が , それ ら の デバ イス と の や 
り 取 り も 。 や は り リフ ァイル と し て 表 う こと が で きま ます, 例え ば 、。「SAVE "SC 
RIN : 」 と いう 命令 も 可能 で す (ULOAD “KYBD : "」 は 不可 能 で す )、 

さき て, ファ イル の 属性 を 記述 する も の と し て ファ イル ディ スク リプ ブタ (FD) 

が あり ます . BASIC の コマ ンド や ステ チー トメ ント で 用 いた ファ イル ディ スク 
リプ タ は , デバ イス 名 や オプ ショ ン や ファ イル 名 を 記述 し て いま す が , これ を も 
と に BASTC イ ンタ ブリ タ は , 内 部 の 処理 系 が 使う た め の フ ァイル ディ スク リ 
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図 4・1・1 SFD (シス テム ファ イル ディ スク リプ ブタ) の 構成 


(【 
ー 
ー} 
ー- 
で #1 
ウ 
に ご 
= 
て こつ 


琴 デバ イス まだ は ファ イル バッ プ ァ 


@ ディス ク で な い 場 谷 (ビッ ト 7 =0) 

デバ イス 番号 $0 KYBD( コ ン ソ ー ル ) 
ゃ 1 SCRN 
s2 CASO 
$3 LPT0O 
SsS す 4 COMDO 
ゃ 8 COM4 


* ディ スク の 場合 (ビッ ト 7 =1) 
| 1 …… デ ィ ス ク で ある ファ イル バッ フィ ティ 番号 
せ 北 0 


図 4・1・2 SFD (シス テム ファ イル ディ スク リプ ブタ) テー ブル 


ファ イル 番号 ・ レ スズ 
寺 0 7 0C 一 一 標準 用 : コン ソー ル へ の 入出 力 
と し て 使用 され , 値 は $ 0 0 が 
土 ] 7 0 D 隊 靖 
定常 的 に 入っ て いる . 
4:02B5) 
(02B ' ) 9 >0F 
SF D の 先頭 アド レス 
(=$070C) 3 70F 
十 8 ユー ザ 用 の ファ イル に 当て られ る 。 
4 「 
(0 0 BF) OPEN され て いな いと き は . 
ファ イル 番号 $00 が 設定 され て いる . 
求め る SED の 
アド レス せ 1 4 7 ] A 
せ 15 7 1 B 
せ 1 6 | も 
せ 1 7 7 1Dーー シ ステ ム 有 川 フロ グラ ム の 入出 力 


* ぷ ILPR INT な ど で 使 われ れる. 
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フグ る レー クエ リア 人 上 に 設 十 し ます | 

この た だ ため 。 前 者 の ファ イル ディ スク リプ ブタ と 後者 の ファ イル ディ スク リプ タ と 
を , 異な る も の と し て 識別 する 必要 が あり ます . そこ で , 本 書 で は , 後者 の BA 
S I C イ ンタ プリ タ で 使う ファ イル ディ スク リプ タ を シス テム ファ イル ディ スク 
リプ タ と 呼び SFD と 員 し ます . 

SEFED は ,. その ファ イル が アク セス し て いる 周辺 装置 が 何で ある か を 記述 する 
も の で あり 。 また 。 ディス クタ テク セス し て いろ る ときには 、 ど の ファ イル パッ アッ 
ァ (後述 ) を 使用 し て いる か を 示し ます . 加え その ファ イル が , 入力 と し て 
使わ れ て いる の か , 出力 と し て 使わ れ て いる の か , ディ スク の 場合 は さら に , ラ 
ンダ ム フ ァ イル と し て その ファ イル バッ ファ を 使っ て いる か どう か を 示し ます . 
従っ て 。 SFD よ り ,。 その ファ イル が どの よう な オー プン 状態 で ある か . あるいは 
者 痢 0 24 Mi 
$ 0 0 と な っ て いま す ) の 基準 に も な り ま す . 

1 つの SF D の 内 容 は , 本 IE 二 まる ょ ビッ ト 構 成 を と っ て お り , その 
ビッ ト の 構成 が 前 述 し た 内 容 を 持っ て いる わけ で す . これ は , デバ イス 番号 (0 
2E6) と ファ イル モー ド (0 2DA) の OR を と っ て 作ら れ ま す . 

さて , ファ イル 番号 が 1 か ら 16 ま で 使用 可能 で ある と いう こと か ら 判 る よう 
に , ユー ザ に 対し て , ファ イル は 1 6 個 設け られ て いま す . そし て , その 分 だ け 
SFD が 1 6 個 設 けら れ て いま す . その 他 に 2 個 , シス テム 用 お よび 標準 用 が あり 
ます が , 標準 用 は 、 コン ソー ル 入 出力 (すなわち スク リー ン に 出力 し キー ボー 
ド か ら 入 力 す る と いう 意味 ) 用 で , 常に $0 0 が 入っ て いま す . 

この 計 1 8 個 の SFD の テー ブル は , (0 7 0Cー071D) の 仔 域 に あり , 
で の 死 頭 デ ドレ ス ぉ 070C ば は 、 ソー クエ リア (02B4302B5) に 定数 と 
し て 格納 され て いま す . 1 つの SFD を アク セス する と き は ,。 この ワー クエ リア 
の 値 に ファ イル 番号 を 足し て その アド レス を 求め ます . BASIC イ ンタ プリ タ 
fn 
(02B4:02B5) の 値 と 。 この (0 0 BEF) の 値 を 足し て 。 SFD (シス 
テム ファ イル ディ スク リプ ブタ ) の アド レス を 求め て いま す 人 ( 図 4・1・2). 

実際 に BA S IT C 上 で の 動き を 見 る こと に し ます . 例え ば , 例 1 の プロ グラ ム 
は キー ボー ド か ら 入 力 し た 文字 を . カセ モット へ 出力 する プロ グラ ム で す が , 実行 
中 の SEFED は , 1 0 行 の 「0PEN」 で , SFD 半 3 (= ニ $0 7 0F) に キー ボ 
mm ド 和 人 力 ち し て 1U を 、20 朋 の 70PEN」 で は 、 SFPD 人 ff14 (SO7 
1A) に カセ ッ ト 出 力 と し て $ 2 2 を , 各々 設定 し ます . 次 の 3 0 行 の 「INPE 
UT」 で は , SFD#3 の 内 容 を 見 て 、 キ ー ボ ー ド か ら の 入力 だ と いう こと を 知 
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り 、 キー ボー ド 入 力 の サブ ルー チン を 呼び ます . 同様 に 4 0 行 で も SFD#14 
の 内 容 を 見 て カセット 出力 の サブ ルー チン を 呼び ます . この よう に ,。 SFD を 
参照 し て デー タ の 入出 力 が 行わ れ ま す . な お , 5 0 行 の 「CLOSE」 は , SF 
D の 内 容 を $ 0 0 に 戻し ます ( 図 4・1・3). 


例 1 10 OUFENT TV 共 さ きり UEYBDI " 
=eO FENTOUD 。 共 14。 "CRSOI SMELE " 
5 。 TNFUT 韻 うき 。 百 中 
引け 。 ド RTNT 后 1 人 4 。 白 第 
み 0 CLOSE 


1・3 SFD (シス テム ファ イル ディ スク リプ タ ) の 使わ れ 方 


3 0) INPUTI 提 3。 AA$ 
S070E 


$070F 一 一 と キー ボー ド 入 力 の 


SFD の 内 容 | 記 サ プ ブルー チン 


2 0) OPEN 0"、#]1 


$0719 40 PRINT# せ 14, A$ 


SFD の 内容 | 


50 CLOSE / 
SFD の 内 容 |S 0 0| 一 症 


|$071B 9 0 


4 一 1 一 2 入出 力 の バッ ファ 


バッ ファ は 。 周辺 装置 へ の 入出 力 デ ー タ を 一 時 的 に 保管 する 領域 の こと を 指し 
ます が ドーBAS IT C で は , 次 の も の が 用 意 き され て いま す . 
@ シス テム 入力 用 (043D-053C) 

周辺 装置 か ら 入力 し た デー タ は 最終 的 に この 領域 に 移さ れ , この 領域 を 利用 し 
て 変数 の 代入 を 行い 。 また , テキ スト の 作成 を 行い ます (これ ら に つい て は ., 
2 音 一 3 童 参 照 ). 
@ カ セッ ト 用 (05ED 一 0 6EB) 

カセ ッ ト と の 入出 力 の た め に 設け られ て いる バッ ファ で す が ,「PLAY」 で も 

この バッ ファ 領域 を 使用 し て いる た め , カセ ッ ト と 「PLAY」 を 同時 に 使用 
9 の ま 生 2 まこ 合 3 
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eRS 一 232C 用 (0 7 8F-) 
RSー232C の 個数 に より , 大 き さ が 変化 し ます . $043pD ト に 
また 、 各々 の バッ ファ の 先頭 部 分 に は , 入出 力 の サ 和 
ブル ー チ ン へ の ジャ ンプ テー プ ブル が 配置 され て いま $ 0 5 3 
す (1 一 3 節 参 照 ). 

@ ディス ク 用 (ドラ イブ テー ブル と ファ イル バッ ファ アァ) 
ディ スク の た め の バ ッ フ ァ は , RS 一 2 3 2 C が 入 
る こと に よっ て その 先頭 アド レス が 変わ っ て くる た 
め 、。 また ドラ イブ の 数 と ファ イル バッ ファ の 数 に 
よっ て その 大 きき さ が 変 化す る た だ ため , メモ リ の と こ に 


」 二 た 当 $ ゃ 0 7 8F 
存在 する か は 確定 で きま せん (これ に つい て は , 1 一 

4 節 に 説明 し て あり ます . また , 表 1・4・1 お よ | RS-232C 
び 表 1・4・2 に は 計算 きれ た アド レス が 求め られ 用 バツ ノア 


て いま す . 次 節 も 参照 し て 下さ い ). 

e 汎用 ディ スク バッ ファ (7213 一 7312) 昌 間 細 
- 記 の も の は 。 テ キス ト エ リア の 前 に ある バッ ファ 2 
で す が , DIS 氏 モー ド の と き は , ド フ イプ ブ テ ー ブ プ い 場 合 は 。 
ル と ファ イル バッ ファ に 加え て , 汎用 の ディ スク 用 作ら れ な 
バッ ファ が 取ら れ ま す . その 大 き さ は , 1 つの セク  "・ 

タ と の 入出 力 を 行う た め , 2 5 6 バイ ト に な っ て いま 
す . バッ ファ が 使用 きれ る 場合 を 次 に 列記 し ます . 

・FAT を ドラ イブ テー ブル に 入力 する と き ,。 ある い 
は 。 ドラ イプ テー プル の 内 容 を FAT に 出力 する と 
き (これ に つい て ば は 次節 で 述べ ます が 。 FAT は 1 
セク タタ ですから, 2 5 6 バイ ト で あり , ドラ イブ テ 
ー ブ ル は 1 5 8 バイ ト の 大 きき さ で すか ら , 入出 力 の 
際 。 この バッ ファ を 利用 し て 調整 を は か っ て いま す ). 

カレ ルク トリ U (ファ テイ ル 名 。 ファ テイ ル 展 工 。 ファ イ 
ル の クラ スタ 番号 を 記憶 し て いる セク タ ) の 入出 力 
お よび , その 変更 の と き . 

・ID セ クタ を 読み 込み ID の チェ ッ ク を 行う と き . 
また 。 この バッ ファ の 有朋 に は 。 デ ィ ス ク 用 の ワー クエ リア が $71D6 一 $7 
2 1 2 の 間 に 取 られ て いま す (一 部 の も の に つい て は , 1 一 4 節 で 述べ まし た 
が ,。 これ ら の も の に つい て は ディ スク の 節 で 述べ る こと に し ます ). 


図 4・1・4 バッ ファ 


14/ 


図 4・1 ・5 汎用 ディ スク 用 バッ ファ 


上 上 。 ディ イレ クト U。 上 0 セク ク 
2 と の 入出 力 


eS で の 
ee 


人 キ 一 1 一 3 ドラ イブ テー ブル (DRVTBBL) 


ドア イソ アー フル と いう の は ほ は 。 ディ スク 用 の バッ アテ の 性 で ディ スク より 
FAT (File Allocation Table) を 読み 込み 、 こ の 領域 で 各 ク ラス タ の 使用 状況 
の 更新 を 行い 。 再び FAT に 書く た め に 用 いら れ て いま す (FAT は , トラ ッ ク 
1 の セク タ 1 に あり ます . 文法 書 2. 1 0. 3 参照). 

ドラ イブ テー ブル の 内 容 は , 図 4・1・6 に 示し て あり ます . ドラ イプ ブ テープ 
ルレ の 第 0 バイ ト 目 は その ドラ イブ テー ブル を アク セス ( 呼 員 し ) し て いる ファ 
イル の 数 を 持っ て いま す . この 第 0 バイ ト 日 の 値 が $ 0 0 の と き に は , その ドラ 
イブ プ テ ー ブ ル を アク セス し て いる ファ イル が な いこ と を 示し て いま すか ら , ディ 
スク の 入出 力 を する 際 に , 新た に ディ スク の FAT を , その ドラ イプ テー ブル に 
諾 み 込 ん で きま す . また 逆 に , 第 0 バイ ト 目 の 値 が $ 0 0 で な いと き に は , その 
條 だ け 。 そ の ドラ フラ イプ テー ブル を アク セス し て 人 
いま す , 従って, FAT を ディ スク か ら 読 み 込 ん で ある の で , 新た に FAT を 読 
み 込 むと いう こと は 行い ませ ん . 即ち , 省 0 バイ ト 目 は , F AT を 入力 する た め 
の パラメータ と し て も 使わ ん れ て いる の で す . 

挫 の 第 1 バイ ト 目 は , 変更 回 数 を 示し ます . すなわち , ドラ イブ テー ブル の 内 
容 を 何 回 変更 し た か を 示し て いる の で す が , 変更 回 数 が ワー クエ リア の (05E 
5 ) (= 記入 レベ ル ) の 値 以 上 に な る と FAT へ 書き 込み ます . ここ で , (0 5 
E5) に は $0 1 が 設定 され て いま すか ら 。 結局 。 1 回 ドラ イプ テー ブル の 内 容 
を 変更 する ご と に FAT へ 出力 する こと に な り ま す . 出力 し た 後 は , 省 1 バイ ト 
日 の 値 は $ 0 0 に 戻 きれ ます か ら , この バイ ト の 取り 得る 値 は $ 0 0 (出力 済 ) 
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と $ 0 1 (出力 要求 ) で ある と 考え る こと が で きま す . 従っ て ,。 この バイ ト は F 
AT を 出力 する た め の バ ラメ ー タ と し て も 使わ れ て いる こと が わか り ま す . また . 
曳 1 バイ ト 一 上 第 1 5 7 バイ ト の 間 が FAT に 出力 され ます が , 出力 の 際 。 第 1 バ 
イト 目 は $ 0 0 に 設定 され て いま す . 

疹 2 バイ ト 一 此 5 バイ ト は 。, 未 使 用 で す . 第 6 バイ トー 上 省 1 5 7 バイ ト は ,。 ク 
ラス タ の 0 一 15 1 に 対応 し て 。 答 バイ ト の 意味 は F AT と 同様 で す (文法 書 2. 
10. 3 参 有 電 ). 


図 4・1・6 ドラ イブ テー ブル の 内 容 
1 つの ド プ イプ テー プル 


析 ie ML ドラ イプ を アク セス し て いる ファ イル 数 : 
+ キ 0| ここ の 5 お DO 人 の と きき 人 以 ザク グ クセ スト て いる プッ 
1 生 に | イル が な い の で .。 新た に FAT か ら 読 み 込ん で 
+ 2 く る. 
| 変更 回数 : 
所 n 回 ドラ イブ テー ブル を 変更 する 度 に ,。 FAT 
に 測 力 さき れる .(05E5) で n=1 と 設定 し て 


いる の で 。 1 回 変更 する 度 に FAT へ 出力 す 


本 、 1 る .。 出力 後 は 、$800 に な る . 
シス テム ラン ダム い 。 - 各 クラ スタ の 使用 状況 : 
バッ ファ ヽ 「 を バイ ト は 。、 ク ラス タ の 0 一 158 1 に 対応 し て 
ファ イル バッ ファ い 、 いる 。 その 人 意味 は , 文法 書 2. 10. 3 で 示 き 
本 ris 7 れ て いる . 
※ ペ 較 に が し た よう に 。 ドラ イプ テー ブル は 最高 4 個 と れ ※※ FAT に 入出 力 す る の は 色 の つい た 部 分 で 
る が 。 それ だ け の ドラ イブ が 接続 きれ て いな い 場 合 は 。 め ある 。 十 1 バイ ト 上 日 は 出力 され る 際 に は 、 
ファ イル バッ ファ な ど が 央 次 。 後ろ か ら 前 に 詰め られ S 0 0 の 値 を と る 


に 


ドラ イフ テー ブル の 変更 を する 場 合 , 邑 ち 、 最 終 的 に F AT の 変更 を する 場合 
に は , 次 の も の が あり ます . 

9 OPEN “0” ーー」 ま だ は 「OPEN “R" 一 」 。 「SAVE」 ま た は 
'S AVEM」 な ど で , 新しい ディ スク 上 の ファ イル を 作る 場合 

りり 有 BENT キー な と で 。 デー ク が その セク クタ に 収まり きら な みく て 。、 新 
だ た な セク タ を 必要 と する 場合 . 

9 PUT せ 一 」 な ど で 。 新た な レコ ー ド 番号 を 指定 し た た め , 新た な セク タ 
を 必要 と する 場合 . 

@ KILL」 な ど で , 既存 の ファ イル を 削除 する と き や 「DSKINI」 で 
ディ スク の 内 容 を 初期 化す る 場合 . 
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以上 上 の 場合 の 例 と し て , 例 2 の プロ グラ ム を 実行 させ たと き の , ドラ イフ テー 
ブル の 推移 を 図 4・1・7 に 示し ます . 


例 2 10 UPFEN "1"。 手 全 "OSAMFLE1" k OFEN"OU 。 可 "OSAMFLES" 
^eO MHILE NOT EOF(S) 
3 。 TINFUT で 人 :k FRINT 半 旨 人 年 sFRINT 


4 MEND 
50 CLOSE 壮 2 』 CLOSE # ら 


蔽 4・1・7 ドラ イブ テー ブル の 推移 


ド フ ィ ブ テー ブル 0 OPENTO"、 せ 2、“"0 :ー 5。 "0 : 一 
+ 0 ーー +O| s0i リリ トー まな 
トー $ 0 0 | 多き 0 | 
FAT ※ 出 力 の 隊 二 1 バイ ト 上 日 は 
いつ も 00 に な る , 
PRINI 韻 5. 一 CLOSE#2 CLOSE れ せ 5 

+0O| S0O2 トー +0O| SOI +O| S00 

+i| S00 | S00 | S00 
ーーーーー 還 - 

※ その セク タ に 収 ま 

ド FAT 


り 切 ら な いと さき 


4 一 1 一 4 ファ イル バッ ファ (FBUF) 


ディ スク に 割り 当て られ た ファ イル の た め に , ファ イル バッ ファ が 設け られ て 
いま す . 1 一 4 節 で 述べ た よう に , ファ イル バッ ファ の うち シス テム ラン ダグ ム バ 
ッ フ ァ は 「FIELD# せ 0 一 」 用 に , ファ イル バッ ファ 上 せ 0 は シス テム 用 ( プ 
ログ ラム の 入出 力 と 「DSKINI」) に 用 いら れ ま す . 他 の 半井 1 一 井 井 1 0 
の ファ イル バッ ファ は ,。 デー タフ ァイル と し て 用 いら れ ま す . た だ し , BAS 1 
C 起動 時 に 設定 し た ファ イル バッ ファ 数 より 多く の ファ イル バッ ファ を オー アン 
る の と 人 は の で きま せん 。 まだ 。 ユーザ, ファ イル を オー プン する 際 に ファ イル 
季 呈 を 指定 し ます が , ファ イル 番号 は SFD の 番号 を 指す も の で ファ イル バッ 
ファ 生 号 を 指す も の で は あり ませ ん (ファ イル バッ ファ 番号 は , その ファ イル 番 


150 


こ 対 応 す る SFD が 持っ て いま す ). 人 例えば, ユー ザ が 
プン し て も , 実際 ( 


ファ イル 番号 井 9 で オー 
に 使用 きれ て いる ファ イル バッ ファ は 寺 井 3 と な る 場合 が あり 
ます . この よう に ファ イル 番号 を 議 理 的 に 与え る こと に より , 少な い バ ッ フ ァ を 
効率 良く 使用 する こと が で きる の で す 


9 の プア ディ イ ルル パッ シア 


- 


少 


ァ は FCB( フ ァイル コン 


部 分 と 1 ププ O バ ッ フ ァ と 呼ば れる 部 分 か ら 成 りや 
和合 人 0 


ディ スク の 1 つの セク タ 
薔 き 込む また は 読み 込む 内 容 が 格納 され て いま す . FCB の 部 分 に は , その フ 
kei 


具体 的 に は ,。 ファ イル モー ド や ドド ライ ブ ゴ 番 号 
や クラ スタ 番号 な ど が 書か れ て いま す . て は , 図 4 ・ 


トロ ー ル フロ ッ ク ) と 呼ば れる 


/ ち ます . この うち , [ バッ 
実際 に ファ イル の 内 容 が 入る 部 分 で 


に つい に その 詳 


ファ イル バッ ファ 


の の ツテ イル パッ プ ァ 本 の zen ルウ 回 の 0 
(71D6:7107) OO 90 


Ei 、 相対 値 。 機 能 ーー ニー ニー ニ = 


・ 解説 “ 
Ac | 


天使 用 


イン フッ トモ ー ト 
アウ トブ プット モード 


| フン ダム モー ド 
Cipwizip9) 上 上 四 遇 9 Oo30 
ァイル | 
4 


ィ イ ル が 使用 し て いる ドラ イブ 番号 
ァイル の 先頭 クラ スタ 番号 


(0 一 151<$972>) 
+ 3 | アク セス 中 (使用 中 ) の クラ スタ 番号 | 

lf バッ ファ | ! | 

(256 バ イト ) 


(0-151<S97) 
| ! EYE テト ゴイ の クラ スタ 内 の 
R | 
1 


| セク タク 番号 (7) 
十 5 ku 


0 バ パップ ファ 中 
本 還 還 | 1 
ファ イル バッ 2 ァ | | 


せ 革 n ロ 一 】 


| | ラン ダム モー ド の 」 
| (0 一 SFF) | 
Sd | と き は 、 両 方 で 
「 ! + キ ら | アウト プッ トモ ー 
TI | | ド 時 の 1 プ 0 バ ッ | _ 
バッ プア モエ モロ | ア 全 近 
ププ チ 壮 半 1 | ンプ 下 の プ ーー の 01 
_ レコ ー ド 5 0 
| テキ スト | 人 
。」 1-sFP) 
| ノ 


ーー デー 
ーーー 


ア 1 


ェ = ェ ーー 


0 バッ プ ァ 長 


S0100 
| 十 9 | 


0 バッ ファ の 先頭 アド レス 
I 
| 回 


本 計 で macrem SFF 
トー imi ー 
※n は 最大 15 ま で 


| で 切れ た と き の デ ー タ の 一 の 人 | 
人 IMGS 0 0 
+13 | 10 バッ ファ 中 の デー タ の ポイ ンタ | 


(S0000-S0100) 
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細 を 示し て お きま し た ., 注意 すべ き 点 は ,。 (FBUF 十 5) の イン プッ トモ ー ド 
の でき の デー ク の ポル ンク と (PUTH 洗 10 ドド DUE 半 4) の デー ク グ の 
ホイ ング です 。 イ シン ノッ ドモ ー ド 時 は 。 (HBUEI キ 9) ほ / ク セス すべ ペ き アデ アモ 
タタ の ボイン タ で あり ,。 (FBUF 十 13:FEBUFE 士 14) は 残り の デー タ の 長 
さ を 示 し ます 従っ て 入力 ルー チン は , 1 バイ ト の デー タ を 持っ て くる と き に は 
(FBUE 土 5) を 。 1 ププ 0 バ パッ ファ に デー ダ が な く な っ だ た こと を 知る と き に 
hh 
S5) を デー タ ボ イン タ , (FBUEF 士 13 :FBUF 十 1 4) を ボイン タ と 呼び 
区 別して いま す . ※F ド BUFE は ファ イル バッ ファ の 先頭 アド レス の こと も 示し て 
いま す . 


4 一 1 一 5 入出 力 の ジャ ンプ テー フル 


大 本 的 な 入出 力 ル ー チ ン は ,。 デバ イス の 違い を 考え ず に 入出 力 が 行え を ます が , 
それ は , SFD が 設定 され て いる こと に より ます . は 基本 的 な 入出 力 ル ー 
チン が 。 ど の よう に SFD か ら 各 デバ イス と の 入出 力 を 行う か に つい て 述べ ます . 

基本 的 入出 力 ル ー チ ン で は 。 各 デバ イス ご と の 入出 カル ー チ ン を サブ ルー チン 
と し て 呼び 出し て いま す . 従っ て , 実際 に は 各 デ バイ ス の 入出 力 ル ー チ ン が その 
デバ イス と の 入出 力 を 行っ て いま す . 

各 デ バイ ス の 入出 力 ル ー チ ン を 呼び 出す た め に , 基本 的 入出 力 ル ー チ ナン は 次 の 
よう な 方 法 を 用 いて いま す . 

(1) その ファ イル 番号 の SFD を 見 

(1i) ae tee デメ オペ スン スハ 出 有力 ル ー ナ シマ と 
呼び 出す . 
(i) その SFD の ビッ ト 7 が 立っ て いな けれ ば (②⑫) 以 下 の 動作 を する 
(2) その SFD の 下位 4 ビッ ト が 示す デバ イ Si デバ イス 分 類 
テー ブル と 呼ぶ ジャ ンプ テー ブル の 先頭 アド レス が 格納 され て いる テー 
ブル か ら , その デバ イス 番号 の アド レス を 待 る . 
(3) (2⑫ で 求め た ジャ ンプ テー ブル の 先頭 アド レス と , 基本 的 入出 力 ル ー チ ン 
が 行 お うと し て い る 内 容 と か ら 。 ジャ ンプ テー ブル 内 の デバ イス 別 入 出 
カカ ルー チン の アド レス を 見 つけ , その 入出 力 ル ー チ ン を 呼び 出す . 

デバ イス 分 類 テ ー ブ ル は 図 4・1・ 9 に , ジャ ンプ テー ブル は 図 4・1・110 
に 。 ディス ク の ジェ ャ ンプ 先 は 図 4・1・1 1 に 示し まし た . それ で は , 実例 を 見 
EL 9 。 


152 


叉 4・1 ・9 デバ イス 分 類 テ ー ブ プル 


FO:06F1 | 06F2:O6F3| 06F4:O6F5 
十 8 


| デバ イス 名 | KYBD( コ ン ソール) | SCRN CAS0 |  LPT0O | (coM0) 
デバ イス 番号 | 0 | 3 | 4 | 
アァ ドレ ス | spBOD SD980 E 8 | $0778 $078F 


ュー ーー ボボ ザ ボ 人 了 和 ゾ す や や pp・※ ぷ こっ 


_06F8.: 06F9 06FA: 06FB 06FC:O06FD|(02B2:02B3) 
ーS06EC 
(COM2) 


papa 


ーーーーーーーー……ーーー 一 


4・1 ・10 入出 力 の ジャ ンプ テー ブル 


@⑬ | S00-S03 | $04.$05 S06.S07| S08.S09| $04.S0B| S0C. S0D| SOE. $ SOF| S10.S11 | 


| 
ォ ー プ ン | クロ ー ズ | 1 バイ ト 入 力 |1 バ イト 出力 | パン シシ ョ ン | EOF 
0E 


ナチ ェ ッ ツ 


ーーーーーー"ーーーーーー 一 清 ーーーーーーーー 一 ニニ ニュ エエ ーー nm 


SCEDC ゃ CE4B ゃ DO072 | $DO8E 


MM _*D1 1 A 


$DB1F | $DB25 | $DB54 


= 証 ニニ ーー ュー ニー ニーー ニ ーーー es es 


el 
Sp980| ( 
Sc9Esl CASO Fm ' 


|$0778 
ee 


hi が 28 (COM0) SD3A5 | SD3B4 


ーーーーーーー*ー ニ ュー ーー エエ エエ ニョ エエ エエ エー ニュ ーー ニュ エエ キャ ーー 


$082E (COM1) // 


RBBD ト (GIIM2) / 
ーー (CO0OM3) 


lso40| (COM の) | ケ 


(⑧… 先 頭 ア ドレ ス か ら の 相対 値 
DD):… テ ー ブ ル の 内 容 
@… 呼 び 出 し て いる ルー チン (エン トリ が 複数 ある も の は , 代表 し て 1 つ ) 


図 4 ・ 1 ・11 ディ スク の ジャ ンプ ア 


主 ーー コモ ーー ニー ニーーーー ニ ーー ニー ニニ ニーーー= ェ ニー ュー エー 


ワー クエ リア の 先頭 ア ドレ ス | (0 0245) | (0242) (0 2 4 8) 


ーーーー 一 ーー 由 ーー テー ュー エーーー テー ーー 


ジャ ンプ 先 の 各 ル ー ま シ の | 


内 容 


153 


*・ 寺 ュ 
な お , 


の ヽ 
ー プ ン 処 理系 な ど へ の 分 岐 の 際 は 。 デバ イス 番号 レジ スタ (0 2E6) を 参照 す 


で 二 4 


ーー  』 


例 3 


(1 ) 


し さき) 


(3 ) 
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SF D が 未 設定 の 状態 で ジャ ンプ テー ブル を 参照 し な けれ ば な みな い オ 


な 
少 


よっ て 処理 を 進め て いま す ( 図 4・3 ・ 2 参照). 


カセ ッ ト か ら 1 バ イト 入力 する 場合 図 4・1・1 2 (ファ イル 番号 は 
せ う 3。 SFD の 内 容 は $12 と する ) 


蒸 本 的 入出 力 ル ー チ ン の 1 つ で ある 1 バイ ト 入 力 ル ー チ ン ($D0 7 
2) は , ファ イル 番号 3 の SFD の 内 容 を 見 ます (B レ ジス タ に 
9) 、 | 

SFD の 内 容 は $ 1 2 で あり ,。 ビット 7 が 立っ て いな い の で ディ スク で 
は な いこ と が わか り ま す (N フ ラグ を 見 て いる) . 

デバ イス 番号 は ,。 下位 4 ビット か ら 2 ($ 0 2) で ある こと が わか り , 
デバ イズ ス 分類 テ ー ブ ル か ら デ バイ ス 番 号 2 の アド レス , すなわち $C9 
E8 を 持っ て きま す (XX レジ スタ に 入る ) . 

ゅ し 9E8 か ら 始 まる CAS 0 の ジャ ンプ テー ブル の うち 1 バイ ト 入 力 
の も の は $CB 0 2 で ある か ら , サブ ルー チン $CB0 2 を 呼び 出し . 
1 バイ ト の デー タ を 受け 取り ます (A レ ジス タ に 入る ) . 


1・12 各 入 出力 ルー チン を 呼び 出す 方 法 


0 


(02B2・02B3) = デバ イス 分 類 テ ー ブ ル の 先頭 アド レス (=$06EFC) 


(02B1:02B5) =SFD テ ー ブ ル の 先頭 アド レス (= き 070C) 
(0 0 BF) = ファ イル 番号 (この 例 で は $ 0 3) 

) SFD の 値 を 読み 込む S | EFD アー ビル 
LDX sozBl X 一 $070C | ($70C) 
LDB SBF キー は 3 ($7 0D) 
月) 旨 。 B (7 0E) 

($ 7 0EF) 

デバ イス 分 類 テ ー ブ プル か ら ジ ャ ンプ テー ブル の 先頭 アド レス を 誠 み 込む 

デバ イス 分 類 
ANDB せ $0 ド B 王 Band#$0 ド (=$8O2) | アープ ブル 
KS 上 上 量 BB まま 2 (=S8 0 1】) (66EC:06ED) 
し LT) え $02B2 人 一 $8 0 6C | (06EE:06EF) 
LDX 2 人 さ 8 | (06F0:06Fi) 

(06F?2:06F3) 
ジャ ン フ テー ブル の サブ プ ル ー チ ン を 呼び 出す 人 出力 ジャ ン フ 


テー ブル 
*ー8 じじ 9ES8 土 人 


J SR 第 生前 X Il ( 
( 三 JSR $CBOZ2) 1 
吉 。 寺 9 


4 一 2 入出 力 応 用 ルー チン の 概要 
4 一 2 一 1 セー プ (SAVE) ルー チン の 概要 


| アド レス | $CD3E 


解 " 説 | セー ブ に は 4 種類 あり , それ ぞ れ の タイ プ に 分 け て 説明 し ます . 
(1) SAVEM $ も CE0 4 

@ SCDOE を 呼び ファ イル 名 ・ デ バイ ス の 選択 .。 ファ イル 番号 半 1 7 を 設 
赴 ッ アア イル グイ フ / ス キー ソラ ノ プ ラーク ファ アイ ルモード の ノリ ア そ 何 め まず す . 

@ フ ァイル クタ イブ を $ 0 2 に 指定 し た 後 , $ CEDF ド で オー プン 処理 を 行い , 
ゅ 0 0・ プ ログ ラム の 長 さ ・ 開 始 番 地 ・ プ ログ ラム の 内 容 ・$FF・$ 0 0 0 
0 ・ 入 日 番地 の 順に 出力 し ます . 

@$ ふ CE4B の クロ ー ズ 実行 ルー チン に 入り , クロ ー ズ 処理 を し ます . 

(2) SAVE も CD3E つ $ も CDCF 

@ SCD0E を 呼ん だ 後 。 $CDCEFE に ジャ ンプ し , プロ テク トチ ェ ッ ク ($C 
DC6) と オー プン 処理 (SCEDF) を 行い ます . 

@ や CDD6 か ら プ ログ ラム の 出力 を 行い 。 $FEFE・ (01E7) ・ (01E 
8) ・ チ テキ スト エ リア [先頭 (3 3 1: 34) 一 最終 (3 5 : 3 6)] の 内 容 を 出力 
し た 後 , $CE4B の クロ ー ズ 処理 ルー チン へ ジャ ンプ し ます . 

(3) SAVE , A $ も CD3E つ $CD20 

@$CD0E を 呼ん だ 後 ,。 $CD2 0 に ジャ ンプ し , $CD2 4 か ら L I S 革 と 
の 共通 ルー チン に な る た め $ 9F 0 B を 呼び L I ST の 範囲 を 検索 し ます . 

@ CDC6 を 呼び プロ テク トチ ェ ッ ク を 行っ た 後 , アス キー フラ グ と テー プ 
ファ イル モー ド を 反転 させ ,。 (BEF) が 0 で な けれ ば $CEDFE の オー プン 処 
理 を 呼び 出し ます . 

@S9ED1 の し 1ST 出 力 ル ー チ ン で , プロ グラ ム の 出力 を 行い ます . 

(4) SAVE ,P $CD3E 

@$SCDOE を 呼ん だ 後 ,。 $CEDEF を 呼ん で オー プン 処理 を し ます . 

@$CD5B か ら は , プロ テク ト 変 換 を テキ スト エリ ア に 対し て 行い 、$C じ DA 
6 っ $CDD6 の SAVE 処 理系 を 用 い 。 最初 の $ お FEF が $F ド FE に 変わ る ( プ 
ロ テ ク ト 指 定 ) 他 は (2 ) と 同様 に 出力 し ます . 

@ SCDAA か ら , プ ロ テ ク ト の 逆 変 換 を 行い ます [プロ テク ト 出 力 の 最 中 に ブレ 
ー ク ・ キ ー を 押し た 場合 、 テ チ テキ スト は プロ テク ト が か か っ た まま 使用 不可 の 状 
態 と な る の で (ディ スク の 場合 は 起こ り ま せん ), この ルー チン を 呼ん で 下さ い 」. 
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4 一 2 一 2 ロード (LOAD) ルー チン の 概要 


| アド レス | $CF2 2, $CF29, $CF31 


解説 | エン トリ の 違い な ど に より , 次 の ワー クエ リア が 変更 され ます . 

9 (0 2EE) RUN ($CF22) …$ ぉ 02。MERGE ($CF29) ・ し 上 
OAD・LOADM ($CE31) …$00 

@ (0 2EF) RUN・LOAD・LOADM…$500, MERGE…$EE 

@ (0 2FO) LOADM…$ 0 0, それ 以外 …$ 0 0 以外 の 値 

@ (0 2F1:02F2) RUN…$0200,. LOAD・LOADM…$ 00 
0 0 


次 に , 共通 ルー チン が 始ま る $CF4B か ら の 流れ を 見 る こと に し ます . 
@$ ふ CC 3 7 で ファ イル 名 ・ デ バイ ス の 選択 を 行い ます . 
@LOADM で オフ セッ ト の 指定 が あれ ば (0 2F1: 02F2) に 格納 し ま 
す . 
@ LOAD, LOADM で R 指 定 が あれ ば (0 2EE) に $0 3 を 代入 し ます . 
@ (ここ か ら CHAIN と も 共通 ルー チン に な り ま す が ) デバ イス が カセ ッ ト ・ 
ディ スン 以外 は ほ は エラー に し ます 。 (0 2 も EE) が 09 の も の は 。 全て の ファ 
2 レグ の 四 ー ス し ます (DCUEAS1) 
@$ プ ログ ラム の ファ イル 番号 #1 7 を オー プン させ ます ($CEDC) . 
@LOADM な ら 5$D0O 3 0 に ジャ ンプ し ます . また だ た, BASIC ソー ス の バイ 
ナリ 形式 の も の は $CFC8 に ジャ ンプ し ます . 

以下 , 答 電 合 に 分 け て 説明 し ます . 

(1) BASIC ソー ス , アス キー 形式 の 場合 

@ ゲ スキ ー フ ラグ と テー プ フ ァ イ ルモード の チェ ッ ク を 行い ます . 
@eMERGE 指 定 が な いと , テキ スト 消去 ・ ク リア 処理 ($8 8F 3 9) を し ます . 
@ テ キス ト 作 成 ル ー チ ン ($ 8E8 8) に ジャ ンプ し ます . 

(2) BASIC ソー ス , バイ ナリ 形式 の 場合 
@eMERGE 指 定 が あれ ば , エラ ー に し ます . 

@e$8F3 9 を 呼ん だ 後 , 3 バイ ト 入 力 し (D1) , (01E7:01E8) に 
格納 し ます . ※ (D 1 ) へ は , 入力 し た デー タ に 二 1 し た 値 が 入り ます . 
@S 8DAE の メモ リフ ル テ ス ト を 行い な が ら , デー タ 終 了 フ ラグ (C0) が 立 
つま で ,( 3 3 : 3 4) か ら 格 納 し て いき ます . この 際 , (35 : 36) が 順次 
更新 され ます . 
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@ ブ プロ テク ト の 場合 は , プロ テク ト 逆 変換 を 行い ます ($5CDAA) . 
これ は , 1 バイ ト 目 が $FE の と き 実 行 さ れ ま す . 
@ フ ログ フ ム 野 終 部 の 、。 リ ンク ホイ ンタ を 修 目 し ます 
@ (ここ か ら は (1 ) と 共通 に な り ま す が ) クロ ー ズ 処理 ($ CE4B) , 受 数 
消去 ($8EF4B) , リン クボ イン タ 修 正 ($C7 3 0) を 行い ます 。 RUN 
指定 が あれ ば 実行 解読 ルー ナン ($C6 3D) , な けれ ば メイ ン ル ー チ ンプ ロ 
ンプ ト 表 示 部 (5 8E 7 2 : Ready 出力 ) へ ジャ ンプ し ます . 
(3) LOADM の 場合 
ファ イル タイ プ と アス キー フラ グ の チェ ッ ク を 行い ます . 
@ ブ ログ ラム の 長 さ と 先頭 アド レス を 読み 込み オフ セッ ト を 加え た アド レス か 
ら , 長 さ 分 だ け の デー タ を メモ リ に 格納 し た 後 , 入 日 番地 を (0217:02 
18) に 設定 し 。 クロ ー ズ 処理 ($ ぉ CE4 B) を 行い ます . R 指 定 が あれ ば E 


XEC ($C7 7 7) に 飛び 。 ブロ グラ ム の 実行 を 開始 し ます . 


4 一 2 一 3 オー プン (OPEN) ルー チン の 概要 


| アド レス | $CEA8$CF2 1 


($CEDC, $CEDF, $CEE1 一 $CF 2 1) 


3 デー タフ ァイル を オー プン させ る この ルー チン は , 次 の よう な 手順 

で 実行 され ます . 

(1) テキ スト を 読み 込み 。 ファ イル の モー ド の アス キー コー ド を スタ ッ ク に 
設定 し ます ($592C3, $994B を 使用 ). 

(2) テキ スト の ファ イル 番号 を 読み 込み ($CE8D), そ の ファ イル 番号 の 
SF ド D が オー プン 状態 に な いこ と を 調べ ます . 

(3) テキ スト か ら フ ァイル ディ スク リプ タ を 読み 込み ワー クエ リア に ファ 
イル 名 , オフ ブフ ション, デバ イス 番号 を 設定 し ます ($CC37) . 

(4 ) ファ イル タイ ププ (02DB) を BASIC デ ー タ (= ニ $0 1) に 設定 
2 2000 ググ PU ei 020 の ドッ の ンー ング デイル ノド 
(0 2D4) を アス キー ( 三 $FF) に 設定 し ます . 

し りり 0 人 委 プ デバ イス を オー プン さ 
せ だ 倫 。 ユエ ラー が な けれ ば ラテ イル 希 号 や クリ アア し て J し ます 
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オー プン 実行 ルー チン を 使用 する 際 の 内 容 は , 以下 の よう に な り ま す . 
@ や CEDC… イ ンプ ッ ト モ ー ド 用 の エン トリ (LOAD な ど で 使 われ る ) 
@ や CEDF… ア ウト プッ トモ ー ド 用 の エン トリ (SAVE な ど で 使 われ る ) 
@ や CEE1…B ロ レジ スタ に , その ファ イル の モー ド を アス キー コー ド で 入れ て 
お く 〈 く こと か 必要 

実行 ルーチン の 入力 情報 と し て オー プン ルー チン が 設定 する も の を 与え ます . 
(0 0 BF) ニ フ ァ イル 番号 (1 一 1 7) 

0 kd 
(0 2 DB) ニ フ ァ イル タイ プ 復帰 情報 に な り ま す . 

(0 2 DD) = ニ ファ イル 名 の 長 さ (0 一 8) 

(0 2DEC0 2E5) ニ フ ァ イル 名 

(0 2E6 ) ニ デ バイ ス 番 号 

(0 2E7-0 2EC) ニニ ファ イル の オプ ショ ン 

な お , この ルー チン で は ファ イル モー ド (0 2 DA) を 設定 し , その 内 容 と (0 
2E6) の OR を 取っ て , その ファ イル 番号 の SFD を 設定 し ます . 


4 一 2 一 4 _ クローズ (CLOSE) ルー チン の 概要 


| アド レス | $CE73, $CE81-$CE8C 


(も CE4B,。 $ も CE4D-$ も CE7 2) 


特定 の ファ イル を クロ ー ズ する 場合 と , 全て の ファ イル を クロ ー ズ 

する 場合 と の 2 種類 が あり ます . 

(1) テキ スト の 「CLOSE」 の 後ろ に ファ イル 番号 が 書か れ て いな い 乾 合 
に は , $CE8 1 に ジャ ンプ し ます . $CE8 1 では, #0 一 #17 の 
ファ イル を 全て クロ ー ズ させ ます ($CE4D 使 用 ) . 

(2) ファ イル 番号 が 書か れ て いる 場合 に は , ファ イル 釈 号 を (0 0 BF) に 
設定 し ($CE9 0) , その ファ イル を クロ ー ズ させ ます ($CE4B 
使用 ) . ファ イル 番号 が 複数 書か れ て いる 場合 に は , 「 ,」 を チェ ッ ク 
し て か ら , 再び ファ イル 番号 を 設定 ($CE8D) し , 同様 に クロ ー ズ 
させ ます . 

炊 に , クロ ー ズ 実行 ルー チン に つい て 解読 し ます . 

@ や CE4B… (0 0BF) の 示す ファ イル 番号 の ファ イル を クロ ー ズ し ます . 
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@ や CE 4D…B ロ レジ スタ の 示す ファ イル 番号 の ファ イル を クロ ー ズ し ます . 

その 処理 は 。 以下 の よう に な り ま す . 

(1) その ファ イル 番号 の 示す SFD を 参照 し , デバ イス が ディ スク の と き 
は 。 ゲ ディ ベス クノ の ノ ク ロ ニー ズル ー チ ン を 呼び ます 

(2) ディ スク で な いと き は , (0 2DA) に ファ イル の モー ド を 入れ (SF 
D か ら 求 め る ) , SFD の 指し 示す , デバ イス の クロ ー ズ ルー チン を 呼 
び ま す . 

(3) その SFD の 内 容 を クリ ア し ます . 
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4 一 3 基本 的 入出 力 ル ー チ ン 


基本 的 入出 力 ル ー チ ン は ,。 4 一 3 一 4 節 の FIRQO お よび Abort ルー チン を 除 
いて は , 全て SFD (シス テム ファ イル ディ スク リプ タ ) と ファ イル 番号 (0 0 
BEF) を 設定 し て お く こ と が 前 提 と な っ て いま す . 設定 され て いな い 場 合 。 即ち , 
その 両方 の うち いずれ か が , また だ は 両方 の 値 が $ 0 0 に な っ て いる と き は , コン 
ソー ル へ の 入出 力 と みな し , その 処理 を 行い ます . 


4 一 3 一 1 ジャ ンプ テー ブル を 使う 基本 的 な ルー チン 


これ ら の サブ ルー チン は , 図 4・1・1 2 に 示し た よう な 形 で SFD の 指す デ 
バイ ス の サフ ルー チン を 呼び 出し て きま す . 


(1) 1 バイ ト 入 力 ル ー チ ン 


$D072 一 $D08D 


機能 | その ファ イル の SFD (シス テム ファ イル ディ スク リプ タ ) の 示す 
デバ イス か ら , 1 バイ ト 入 力 す る . 
| レジ スタ | A, B, X  (B, X, Y, U は 保存 ) 
復帰 情報 | A レ ジス タ 王 入 力 デ ー タ 
(0 0C0) ニ フ ァ イル の 終わ り , また は それ 以降 に 入力 を 行っ た 
場合 は , も FF が 設定 され る (それ 以外 は $0 10) . 


(00BF) (=Readg), (DUC0) @ 


(02B2:02B3) ⑯ , (02B4:02B5) ⑥ 


入力 デー タ 終 了 フ ラグ (0 0C0) を クリ ア し た 後 , SFD テ ー ブ 
ルレ の 先頭 アド レス (0 2B4 : 02B5) と ファ イル 番号 (0 0 BEFE) か ら , 目 
的 の SFD を 見 つけ , SFD の 示す デバ イス が ディ スク の と き は , 図 4・1・11 
で 示さ れる アド レス へ ジャ ンプ し , その 他 の デパ イス は , デパ イス 分 類 テ ー ブ プル 
( 図 4・1・9) を 参照 し し その ジャ ンプ テー ブル ( 図 4・1・1 0 ) で て 示さ れ 
る サブ ルー チン を 呼び 出し ます ( 図 4・1・1 2 参照) . 入力 は 。 これ ら の サ プ ブ 
ノレ レー チン が 行い ます . 
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(2 ) 1 バイ ト 出 力 ル ー チ ン 


| アド レス | $D08E-$D0C9 

機 能 | その ファ イル の SFD の 示す デバ イス に , 1 バイ ト 出 力 する . 
A, B, X  (A, 日 , X, Y, U は 保存 ) 

| 入力 情報 | A レ ジス タニ 出力 デー タ 


(0 0BF) (02B2:02B3) @ 
(02B4:02B5) ⑥  , (05AA:05AB) ⑥ 
(05AC) 


$D6 1 7 つ プ リン タ 1 バイ ト 出 力 ル ー チ ン 


ファ イル 番号 の 指定 が な いと き [ (0 0 BF) =0〕 で , か つ , プ 
リン タ ON フ ラグ が 立っ て いる と き 〔[(0 5AC) き 0〕] は , A レ ジス タダ タ の アス 
キー コー ド に 対応 する 文字 を プリ ンタ へ 出力 する こと が で きま す . ま だ , その ファ 
イル の S EFD が. イン プッ トモ ー ド で , か つ , コン ソー ル 以 外 の デバ イス を 指し 
て いる と き は 出力 し ませ ん . その 他 の 場合 は , $D0 7 2 と 同じ 方 法 で , SFD 
の 示す デバ イス へ 出力 し ます ( 図 4・1・9^ー 図 4・1・1 2 参照 ) . 


(3) ポジ ショ ン ・ デ バイ スチ ェ ッ クル ー チ ン 


| アド レス | $D0CA$D0EC 

カー ソル や プリ ンタ ヘッ ド の ポジ ショ ン な ど , 改行 する た め に 必要 
な 情報 を 与え る . 

A, 日 。 X (全て 保存 ) 

| 復帰 情報 | アフ ラグ ニカ セッ ト お よび ディ スク の と き は セッ ト さ れる . 


※ ワ ー ク エリ ア に つい て は , 図 4・3・1 を 参照. 
|IWORK | (00BF) 。 (00CD 一 00D0O) 


(02B2:0U2B3) 人 ⑥@ 。 (0D2B4 :02B5) 
(0 2D9) (Write) 


$ D 0 7 2 と 同じ 方 法 で , SFD の 示す デバ イス の サブ ルーチン を 
呼び が, 図 4・3・1 に 示し た よう に ワー クエ リア の 設定 を 行い ます . 
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ae ニー ニー ニー ニニ ーー ニー ニニ ーー ニー ニー ニー ニニ ー ニ ーー - ーー 由 sm 5 ーーーー ーーーーーーーーーーーーーー ーーー ] 


デバ イス ヽ へ 、 |(oocp)| (0ocE) | (oocF) | (oopo) |(02Dp9) | 
人 本 | | 
RNN Io 
KYBD.SCRNI (0 3 11) (030B) @ り 放り 0K 交 EE 
(sp992〕 | フィ ー ル ド 改 行 桁 数 | カー ソル の X 座標 | WIDTH 幅 
人 ーー 月 0 時 oe = ニ 二 
。 cAs0 | 
$S01 | SO00 | SO00 S00 
(SCB4D〕 | | ( | | 
ーーーーーーーー goes mri 
「 。 LPT0O 「 | (X 十 $14) | (X 十 $12) | (X 十 $ 1 3) 
| | 


| フィー ルド 改 行 桁 数 現在 の 桁 位置 改行 桁 数 


| 
| 
| 
| (x+$ 14) (X 二 $12) | (X 土 $13) 
| フィール ド 改 行 桁 数 | パッ ファ 内 の デー タ 数 | 改行 桁 数 
間 還 還 


| 
1 
ーーーー 
] 
! 


| 

| | | | 
。 DISK | | (FBUF 十 6) | | 
| $S 0E $ 0 0 | | $ 0 0 
(SS7AAB8] | | バッ ファ 内 の デー 8 


※( ) で 用 まれ て いる も の は 。 ワー クエ リア また は バッ ファ 内 の メモ リ で ある こと 
また , ( ) 内 の 又は , その デバ イス の ジャ ンプ テー ブル の 先頭 アド レス を 示し ,、FBUEF は ファ イ 
ルレ バッ プア の 先 匠 ア デ ド レス を 示し て いま す . 


谷 ワ ー ク エリ ア の 意味 


(00CD) ニニ フィー ルド の 桁 数 : コ ンマ で 区 切っ な た とき の フ ィ ー ル ド の 桁 数 、 あ る い は 、 コン 
マ で 移動 する 橋 数 を 示し ます . 

(00CE) ニ フ ィ ー ル トド 改行 桁 数 : コ ンマ で 区 切っ た 場合 。 現在 の 桁 位置 が この 値 よ り 大 きく 
な っ た 場合 は 改行 され ます . 

(00CF) = 現在 の ボ ポジション : 現 在 の デー タ 内 の 位置 を が し ます . 

(00D0) = 改行 桁 数 : 改行 すべ き 桁 数 を 示し ます . 

(02D9) =LF 出 力 禁 止 フ ラグ : 改 行 の 際 $ 0A (LF) を 出力 し な い デ バイ ス を 示し ます . 


図 4・3・2 デバ イス 番号 (0 2E6) 


LTITIITIII|I 0 KYBD ま た は コン ソー ル 


| 1 SCRN 

ディ スク で な いと き … 2 CASO 

ルツ Cikb ど と 雪 o0 8 
4 一 8 COMn 

ディ スク の と き ………・ ] ディ スク の と き … ド ライ ブ 番 号 (0 一 9) 


※ 天 隊 は 、 ドライブ 番号 は 3 まで 
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4 一 3 一 2 ファ イル 関係 ルー チン 


( 1 ) ファ イル 名 , デバ イス 設定 ルー チン 


$CC3 4, $CC3 7, $CC3C, $CCAC-$CD0 0 
機能 | テキ スト の 文字 列 式 か ら フ ァイル ディ スク リプ タ (FD) を 読み 込 
み ,。 ファ イル 名 と デバ イス 番号 を ワー クエ リア に 格納 する . 

復帰 情報 | 解説 の 下 に ある ワー クエ リア が 設定 され る . 


(01EB) 。 (0 2B2 :02B3) 人 Q 
(02DD) 。 (0 2DE02E5) 
(02E6) ⑩ 。 (02E7 一 02ED) 


SU B $ 0 0 D 8… 汎 用 読み 込み ルー チン 
0 2 9 9 拡張 用 
98F 1 一 式 の 評価 ・ 型 判断 と 文字 列 の 実行 アド レス を 読み 込む 
終了 条件 | 指定 し た デバ イス が な か っ た と き “Device Unavailable " エラ ー 
($CF 0A) , ファ イル ディ スク リプ タ の 記述 の 仕方 が 間違っ て 
いる と き “Bad File Descriptor” エラ ー ($ も CCFC) を 発生 . 


解 説 | SCC34 は 「FILES」, $CC3C は 「LOAD ?」 用 の ェ 
ント リ で ,。 FD を 必ず し も 必要 と し ませ ん . その 他 の FD を 必要 と する も の (R 
OM モー ド で の 「LOAD」 も 原則 的 に 含ま れ ま す ) は $ CC 3 7 を エン トリ と 
し て いま す . これ ら は , 式 の 評価 を し て FD を 表わす 文字 列 の 文字 数 と 先頭 アド 
レス を 設定 ($ 9 8F1) し , それ を 基 に ディ スク は $CC6C で , その 他 の テ デ 
バイ ス は $CCC5 一 $CCFB 問 で , デバ イス を 選択 し ます . $ CC 8 3 か ら 
は オフ ショ ン を , $C じ CCA5 か ら は ファ イル 名 を 設定 する 部 分 で す 、 ま だ , $C 
CAC か ら は ファ イル 名 転送 ルー チン と し て も 呼ば れん ます. ユー ザ が $CC3 7 
を 使用 する と き は 引用 待 で 始ま る FD の 先頭 アド レス を (D 9 : DA) に 代入 し 
て 下さ い . 


@ (0 2 DD) ー フ ァイル の 長 さ ! ($00-$08 の 間 の 値 ) 
$ (0 2DEー02E5) ニニ ファ イル 名 アス キー コー ド で 入る . 
@ (0) 2E16) ー デ バイ ス 番 号 ! デバ イス の 指定 の な いと き は 。 デフ ォ 


ルト の デバ イス 番号 (0 1EB) が 代入 され る . 
@ (0 2E7 一 0 2ED) ニ フ ァ イル の オプ ショ ン : アス キー コー ド で 入る . 
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(2) ファ イル 番号 設定 ルー チン 


$CE90-$CEA6 

機 能 | テキ スト か ら 読 み 込み , ファ イル 番号 (0 0 BF) を 設定 する . 

AB 

|IWORK | (00BF) ⑩ 

|S UB| $UOUD2, $00D8 一 汎用 読み 込み ルー チン 
$ 9 9 BC… 式 の 評価 か ら 1 バイ ト 整 数 デー タ を 作っ て BB レジスタ 

に 入れ る ルー チン 

ファ イル 番号 が 1 以上 1 5 以下 で な いと “Bad File Number" エ ラー 

を 発生 させ る た め に エラ ー 処 理 ル ー チ ン ($ 8 DD1) に 飛ぶ 、 


( 3 ) ファ イル テ チェッ クル ー テ チン 


$ も DU0ED-ー$D0F9 

SFD を 調査 し , デバ イス 情報 を CC レジ スタ に 設定 する . 

B, X (全て 保存 ) 

N フ ラグ ニテ デバ イス が ディ スク の と き は セッ ト さ れる . 

有 フ ラグ = テニ その ファ イル が オー プン され て いな いと き は セッ ト さ れる . 
(00BF) Q@ 。 (02B4 :0U2B5) 


(4) ファ イル モー ド チ ェ ッ クル ー テ チン 


| アド レス | $D0FA, $D0FD$D119 
SFD を 調査 し , その ファ イル の モー ド の チェ ッ ク を 行う . 
アウ トブ プッ ト ($D0FA) プイ ンプ ブ プット ($D0FD) 
| レジ スタ | A, 日 , X  (B, X が 保存 ) 
A レ ジス タニ アウ ト プ ッ ト …$ 2 0 プイ ンプ ブッ ト …$1 0 
(00BF) @ 。 (02B4:02B5) 
ファ イル が オー プン され て いな いと き は , “File not Open" エラー 
を 発生 させ る . 指定 し た モー ド と 異な る と き は , “Bad File Mode 
エラ ー ($CEF 4 ) を 発生 する . 
※ フ ァイル 番号 (0 0 BF) が 0 り の と き は , チェ ッ ク を 行わ な い . 


ーー 
く ぐ ゝ 
に > 


4 一 3 一 3 基本 的 入出 力 ル ー チ ン を 利用 し た デー タ 入 出 カ カル 
ー チ ン 


(1) ブロ ッ ク 出 力 ル ー チ ン 


| アド レス | $D90F-$D92E 


機 能 | コン ソー ル あ る い は それ 以外 の デバ イス に , 2 5 5 バイ ト ま た は デ 
ー タ 中 に 0 0 が くる まで , デー タ を 出力 する . 

AB X 

| 入力 情報 | X レ ジス タニ デ ー タ の 先頭 アド レス 

(0 0 BF) ニ フ ァ イル 番号 

$D0 8Eー1 バ イト 出力 ルー チン 
$ も DA30 つ SUBOUT PU 初期 設 定 ル ー チ ン 
$DA35 つ SUBOUT PUT 後 続 設定 ルー チン 
$DA64~BIOS 実 行 ル ー チ ン 


次 の 2 と お り の 動作 を し ます . 

(i) ファ イル 番号 が 設定 され て いる 場合 [(0 0BF) ミキ 0] は , $DO08 
E を 用 いて SFD の 示す デバ イス に 出力 し ます . 

(ii) ファ イル 番号 が 設定 され て いな い 場 合 [ (0 0BE) =0] は , $DA 
30,$DA36, $DA6 4 を 用 いて 画面 上 に 出力 し ます . その 隊 , 
画面 上 の フィ ー ル ド は 設定 され ませ ん . 


(2) ブロ ッ ク 入 カカ ルー チン 


$DAA5, $DAB2…$DADE 
機 能 | シス テム 入力 用 バッ ファ (043D 一 053C) に 2 5 5 バイト, 
また は デー タ 中 に 0 D が くる まで , デー タ を デバ イス か ら 入 力 す る . 
レジ スタ | A, X 
復帰 情報 | メレ ジス タ =$0 4 3 C が 代入 され る . 
(0 0C0) = ニ フ ァ イル 終了 の 場合 は , $FF が 設定 され る . 


|WORK | (00C0) = ニ デ ー タ 終了 フラ グ 


|S UB| $026 0 一 拡張 用 
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$D0 72 つ 1 バイ トト 入力 ルー チン 
も $ も DUED 一 ファ イル チェ ッ ク ル ー チ ン 


$DAA6 エ ント リ の と き , SFD が 設定 され て いな い 場 合 に は 何 
も 行い ませ ん (ZZ アフ ラグ が セッ ト さ れ ま す ) . また だ た, SFED が 設定 され て いる 場 
合 は スタ ッ ク ポ イン タ を 圭 2 し て , この サブ プ ブルー チ ン を 呼び 出し た JSR・BS 
R 命令 の 書か れ て いる 番地 を 放棄 する の で , この ルー チン が 終わ る と , 2 段階 上 
位 の ルー チン ヘリ ター ン し ます ,。 ユー ザ が この ルー チン を 使用 する 場合 は .。 これ 
ら の 処理 を 行わ な が い $DAB2 を エン トリ と する の が 適当 で す . な お , 入力 し た 
デー タ の 後 尾 に は , デー タ の 終了 を 示す た め $ 0 0 が 付加 され ます (従っ て , デー 
タ が 実際 に 入る の は $ 0 5 3 B ま で と な り ま す . また , この ルー チン を 使っ て キ 
ボー ド か ら 入 力 す る 隊 は , 画面 に 入力 文字 が 出力 され ませ ん ) . 


ーー 


(3) 一行 出 カカ ルーチン 


| アド レス | $9BDB, $9BF3, $9BF6-$9C2A 


機 能 | コン ソー ル , ある い は その 他 の デバ イス に , 文字 列 ・ デ ー タ を 出力 


| レジ スタ | A, B, X, Y, U 
解説 参照 
| 復帰 情報 | B レ ジス ター ニク リア され る (フフ ラグ も セッ ト さ れる ) . 
X レジ スタ ーー 文字 列 (デー タ 群 ) の 最終 アド レス 十 1 の 値 
WORK | (00BF) Q , (05A0D 一 05A5) ⑩ 
(05AC) 
S U り Bl $9 7 9 昌一 文字 列 定数 な どの 読み 出し 評価 ルー チン 
$98F 7 有一 文字 列 の 実行 アド レス 読み 込み SAC を 1 つつ ぶす 
9B5 0 一 改行 ルー チン 
$ も D0 8Eー1 バ イト 出力 ルー チン 
も D 9 2Fー フ ィ ー ル ド 設 定 ル ー チ ン 
00DE つ BIOS ジ ャ ンプ ブ プルー チン 


解 説 | エン トリ に よっ て , 処理 内 容 お よび 入力 情報 が 多少 異な っ て きま す . 


@$9BDB X メ レジスタ に 文字 列 の 先頭 アド レス ー1 の 舘 , 文字 列 の 共 わ り に 
は $00, も し く は $22 を 入れ て 下さ い . 
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@$9BF3 PRIN 丁 文 や INPU 丁 文 プ リン ト 用 の エン トリ (この エン ト 
5 らら 和 人 る と ざさ は 。 5D (スト リシン シン ディ スク ノリ アグ) な と そる 症 
し く 設 定 し て お く 〈 く 必要 が あり ます . 

@S9BFE6 B レ ジス タ に 文字 列 の 長 さ ,。 メレ ジス タ に 文字 列 の 先頭 アド レス 
を 設定 し て 下さ い . 


$ 9 BDB エ ント リ の 場合 は , 文字 列 の 先頭 に $ 0D, $ 0 A の 並び が ある と 
さき に は , 1 行 改行 ($59B50) し ます . これ 以降 の 動作 は , SAC (スズ スト リン 
グ ア キ ュ ム レー タ , 3 草 参 照 ) を 設定 ($979B) し , その SAC を 鞍 に , 文 
字 列 の 長 さ と 実行 アド レス を 設定 (98F7) し ます . ここ まで が $9BFE6 
まで の 動作 で , $ 9 BEF 6 以降 は . ファ イル と し て で な い コ ン ソ ー ル へ の 出力 の 
場合 [ (0 0 BF) =0〕 は , 画面 上 の フィ ー ル ド (シス テム 仕様 2. 2. 

5J) ) を 設定 (pbD9 り 2P) し ます 。 この と き 。 プ リン シク 0N ブ ラフ ラノ が YV っ 
て いな い 場 合 [(05AC) = ニ 0〕 は , BIOS の OUTPUT [シス テム 仕 
様 2. 1. 4 (16) 〕 を 用 いて 文字 列 の コン ソー ル へ の 出力 を 行い ます . その 
他 の 場合 は , 1 バイ ト 出 力 ル ー チ ン ($D0 8E) を 用 いて , SFD が 指定 し て 
いる コン ソー ル や その 他 の デバ イス に 文字 列 を 出力 し ます (この 動作 は , $ 9C 
1 6 から 行わ れ ま すか ら , ここ を エン トリ と し て も 構い ませ ん ) . 


(4) 改行 ルー チン 


| アド レス | $9B47, $9B50-$9B67 

機 能 | デバ イス に $0D (CR) と $0A (LF) を 出力 し ます . 

AB, Y 

|IWORK | (00CF) , (02D9) 

$D0 8Eー1 バ イト 出力 ルー チン 
$D0CAー ボ ポジション ・ デ バイ スチ ェ ッ クル ー チ ン 
$D6 4 Aー ブ プリ ンタ 改行 ルー チン 


解 説 | $9B47 エ ント リ の 際 に は , ディ スク , カセ ッ ト 以 外 の デバ イス 

は , 欠 座 標 が 0 の と き は 改行 し ませ ん . 改行 する 際 に , デバ イス が ブリ ンタ の と 
さき は $D6 4A を 用 いて 改行 し ます . まだ た, デバ イス が カセ ッ ト の と き は , $ 0 
A (LEF) が 出力 され ませ ん . な お ワー クエ リア は , 図 4・3・1 を 御 参 照 下 
さい . 
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(5) 一行 入力 ルー チン 一 一 スク リー ン エディ ター 一 


$D7F7, $D807ー$D8AB 
機 能 | キー ボー ド , ある い は 周辺 装置 か ら 1 行 を 入力 し て , シス テム 入力 
用 バッ ファ (0 4 3 D 一 0 5 3C) に 格納 する . 
| レジ スタ | A, B, X, U 
キー ボー ド か ら 入 力 し た と き , CNT ヒ し ーX, CNTL し 一 C, ある 
い は ブレ ー ク ・ キ ー で 終了 し た 場合 は , C フ ラク が セッ ト さ れる . 
リタ ー ン ・ キ ー で 終了 し た 場合 は ,。 メレ ジス タ に $0 4 3C, U レ 
ジス タ に バッ ファ 内 の 文字 列 の 最終 アド レス が , 各 々 代入 され る . 
IWORK | (D9:DA) (0312:0313) @ ン ノ ⑳⑩ 
(05A9) ⑥ ン プ ⑩ 。 (0 5B7) ⑥ プ 
SUB| $0OD 2 一 汎用 読み 込み ルー チン 
$0 0DE つ BIOS ジ ャ ンプ ブル ー テ チン 
$ も 9B47, $9B5 0 一 改行 ルー チン 
も D 9 3 D つ フィ ー ル ド 設 定 お よび EL( イ レー ズラ イン ) リ ルー チン 
$D9F 4 一 汎用 入出 力 RCB 設 定 ル ー チ ン 
$ も DAA5 一 ブロ ッ ク 入 力 ル ー チ ン 
$ も DAEF, $ も DAF6 一 カー ソル 表示 , 消去 ルー チン 


この ルー チン で は , 両方 の エン トリ の 最初 で BSDAA6 を 呼ん で い 
る た め , ファ イル 番号 (0 0 BF) と SED が 設定 され て いる 場合 は , そこ で 周 
辺 装置 か ら の 入力 を 行い 。 この ルー チン で 入力 を 行い ませ ん . 
コン ソー ル か ら の 入力 の 場合 は 、 BIOS の INPUT, ある い は INPUT 


らら トシ スゲ テム 作 様 ク 1 4(1M) (1 565) 内 用) を 用 いま ます 。 ここ で 作 す 9 る こ 
ME 
従っ て , カー ソル を 移動 する 等 で , 複数 の フィ ー ル ド を 変更 し た と き は , 変更 


陸地 束 生 和束 肖 半生 
を 使用 し て 持っ て こら れる も の は , 最初 の フィ ー ル 所 残り の フィ ー ル ド 
は , INPUTC を 使っ て 1 回 ご と に 持っ て くる 必要 が あり ます . 
し か し , 他 の フィ ー ル ド を 変更 し た と き に , イン タプ リタ が それ ら の フィ ー ル 
ド を 必要 と する の は , 次 の 2 つの 場合 し か あり ませ ん . 
@ コ マン ンド レベ ル (コマ ンド 待ち の 状 問 ) で , 画面 上 に 出 て いる , 以前 入力 し た 
コマ ンド を 修正 し て 使用 し た 場合 
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@$ コ マン ドレ ベル で , 画面 上 に 出 て いる 複数 の プロ グラ ム の 人 行 を 変更 し た 場合 

この よう な 場合 は 。 INPUT 十 で 提出 きれ た フィ ー ル ド 以 外 の , 変更 され た フ 
ィ ー ル ド を INPUTC で 持っ て くる 必要 が あり ます . 内 MP 
で は , INPUT で 扶 出 され た だ フィー ルド に 何 の 入 力も な いな ら 。 INPUTC 
を 用 いて , 変更 され だ た 次 の フィ ー ル ド を バッ ファ に 持っ て きま す . また だ , INP 
U 華 で 提出 され だ た フィー ルド の 先頭 が 数 字 で 始ま る の な ら , すなわち プロ グラ ム 
の 行 の 尊 集 の 隊 は , イン フッ ト 継 続 フ ラグ (0 5A 9) を 立て た まま に し て お い 

て ( 三 $FF) , 次 の 機会 に 引き 続い て この ルー チン を 呼び 出す と き に は IN 
PUTC で 残り の フィ ー ル ド を 転送 す の ウー し ま う 9 

この よう に 。 $D7F7 の エン トリ で この ルー チン を 呼ぶ と き は 。 インプット 
継続 フラ グ に より , BIOS の INPUT, ある い は INPUTC を 用 いま す 
が , $D8 0 7 の エン トリ で 呼ぶ と き は , INPUT の み を 用 いて お り , また イ 
ンプ ブッ ト 継続 フラ グ を 立て な い の で ,。 上 記 の 動作 は し ませ ん . 

※INPUT, INPUTC で は , 変更 され だ た フィー ルド を 画面 最上 段 の フィ ー 
ルド より 順番 に 読み 込ん で きま す . 

パ バップ ファ に 転送 され た フィ ー ル ド 内 の 文字 列 の 中 の 一 文字 の アス キー コー ド が 
$ ゃ 00 一 $1F ド F, ある い は $7 ド , $FE, $FF ド で あっ た 場合 は 。 スペ ー ス 
( 三 $20) で 置き 換え られ ます . また , 文字 列 の 最後 に スペ ー ス が ある 場合 
は , その スペ ー ス は 無視 され ます . 

ー ー- 連 の 入力 が 終わ っ た と き に , XX 座標 が 0 で な けれ ば は 改行 を し ます 」 9B4 
Ms 志 000 プ ダレ クラーク ャ キー ON し ーー パ 。」 (NT し なら る の ポー に よう て 
RE ち の まあ が 
ドジ ラク CO09 ル 12. 0MHUO)J) タグ クリア し た 修 。 愉 殺 そし て (W9B50) 衝 
わる だ け で , バッ ファ に 転送 され ませ ん . 

※ 文 中 で 使用 し た 「 バ バッファ 」 と いう の は , シス テム 入力 用 バッ ファ (043D 
ー053C)[ 第 2 草 で 「 行 入力 パッ ファ 」 と 呼ん だ も の ] の こと を 指し て いま す 
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4 一 3 一 4 FIRQ と Abort ルー ナン 
(1) F IRQ ルー チン 


| アド レス | $C953ー$C9D7 


| レジ スタ | A, BB, X【 全 て の レジ スタ (CC, S, DP も 含む ) が 保存 〕 


解説 | ここ で は , プレ ー ク ・ キ ー と の 関連 だ け を 述べ る こと に し ます . 

@ ブ レー ク ・ キ ー の 押下 の チェ ッ ク を 行い 押さ れ て いれ ば , サブ シス テム に 1 
RQ リ クエ スト を 出し て 命令 の 実行 を 解除 きせ た 後 , プレ ー ク ・ キ ー 押 下 フ ラ 
グ を セッ ト [〔(0 3 1 3) 一 #$ 4 0] し ます . この 後 , IRQ リク エス ト を 解 
除 さ せま す . また , 押さ れ て いる 間 は ルー プ を 繰り 返し て いま す . 

@ ブ レー ク ・ キ ー の 割り 込み 以外 の サブ プ ブシ ステ ム の アテ ンション な ら , その 割り 
込み の 処理 を し ます . 


(2) Abort ルー チン 


本 
入出 力 の Abort テス ト を 行い ます . 


@ 坊 央 フッ ク (0 2 8D) を 通し た 後 , プレ ー ク ・ キ ー 押 下 フ ラグ (0 3 1 3) 
を ナ ェ ッ ク し , $ 0 0 (押さ きれ て いな い ) な を なら 、 その まま り タ ー ン し ます . 
(USA し U) 。 (U302 0913) 。 (0UMIOD。 (0015) 。 りり 『 

の スグ クッ ルク リル し ます, 

@ や 8F82 を 呼び SP の 初期 設定 . CONT ア ドレ ス の クリ ア , SAC の 初 
期 設 定 を 行っ た 後 , $EC0O0 5 で 音 関 係 の 初期 化 ,.$DB44 で BEEP OO 
FEF, $D772 で MOTOR OFF ド を 行い ます . 

@ (0 2F3) の LOAD フ ラグ が 立っ て いれ ば , $ 8F3 9 で テキ スト 少 去 , 
変数 クリ ア な どの 処理 を 行い ます . 

@ まだ, TERM モ ー ド の と き は , 割り 込み の 初期 化 や クロ ー ズ 処理 を 行い ま 
す . 

WS8E6 3 の メイ ン ル ー チ ンプ ロン プ ト 出 力 部 に ジャ ンプ し, 「 Abort」 出力 を 

行い メイ ン ル ー チ ン に 戻り ます . 
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4 一 3 一 5 サン プル 


ディ スク や カセ ッ ト の ファ イル を 画面 に 出力 し ます . プロ グラ ム フ ァ イル の 場 
合 は フィ ー ル ド を セッ ト し て ある の で , 画面 に 出 た リス ト を 修正 する だ け で , プ 
ログ ラム と し て 格納 され ます . ま た , カ セット に バイ ナリ 形式 で セー ブ プ さ れ た ファ 
イル は ギャ ッ プ が 短い た め ブ ロッ ク を 読み 飛ば げす こと が ある の で , 1 ブロッ ク を 
弥 ん で 表示 し て いる 則 に モー タ を 少し 戻し て お く か , ある い は , あら か じ め 長 い 
ギャ ッ プ で セー ブ す る 〔(0 1E9) を $8 0 ぐら い に し て お く 〈〕] か を 行っ て お く 
必要 が あり ます . 


Pn ロ DE 001 (ロジ 1 ご 01、D000 ご うつ) F_ LIST 


100 の 00 NaP に EL 生 小 

10010 MR MEP、MNUGEN 

100 デ OO OO0O RG ま コ 00() 

10O の る Q うみ 6)() F LT5T EGU を 

100 竹 り 0 コ 000 0F EF CLER も 日 ト 

1005 ら 0 00 グラ BD OO 各 し ヒロ 史 で に お 還 

1006 ロ 500 る BD EDB り S5 ド R HBHDE \FPr1TnT 上 ロロ トキ ESGRGE 

OOD ア ZOO 5O09 BEBD D 刀 い ア JGR 中 D 昌 O ア し 1 ロロ 己 1nDU キ イロ Om EEYBD 

100BD 50 呈 6 ee L.Df も ご ご ロキ DOub1 ら uu ロト ュ モ ヒ 1 ロ hn 門 コ レビ ド 
100D9 ロ 50OE 台 / 日 人 4 「 白 > t ロ 「 ロ ロロ ロイ Fi1 己 | 己 ほ ヒ にし 1 ロモ ロビ 
10100 0O10 DE D LDLU 名 D 

1011 け 5 ら 01 ビ さき 4 (0 F'5HS 日 \Fu5h (DD9i Da ) 

101 で けり 514 9 トド ト D ロ 「 XX 生 D 

101 う 3 け 5016 BD 上 時 JSR 生じ じじ ユア \ ら ロト 上 Fi] 与 Nam 己 DD 呈 ソ 1 こら 昔 
10140 5019 0C BF INC 名 BF 基 F13 1 王 福 三 1 

101 ら 0 50O1E ED CEDC JS5R 生じ EDC 天 ロ 選 品 Fi まほ 戸 (En ロ ut PP ロ dE ) 
4016 ら 0 50tE 日 6 ロダ DC LDA 和 も 0DC 

101 ア 7 ロロ コリ 0 ジ 1 ジア 1 衝 っ は. る 1]) EE ETINRRY きす 昌 3 ミロ ヨミ ビッ F ュ ii 己 上 hh Ein ロ ヨ レッ 
401 rg 19 REFERT EEL 3 

: り 1 サロ 0 3 Da で J5 ド R 中 DRE % 昌 1 ロ と ヒド TnDuU 革 ffFOm す 呈 ) 王 
40 ご DD コ O だ ら 6 796 じ () L.DR も じじ 

010 OOE 昌 どら 7E m19」2tel ENE =1 % ュ 十 に ロロ ロ 和 f FilL 己 上 hEBn 三 ュ ヒュ 8 ロ 己 
すす 0 で CD ロコ OE 人 OF HHF じ LR 生 BF %Fi1l 還 手 り (NOorrma1) 

NG は 名 は だ 8 (1 LE 折 史 1 。X 

10 で 4D 5O デ E ED リザ P J5R も D マ マト え 司 司 キ F ュ 己 1 ロ 

10< つ 0 コ 031 BD リ ど 0F り ド まま DF # 昌 1 ロビ エト utDuU キ キロ SCRN( じ OnSO1 所) 
10 ご こら けり コロ うこ 4 BDD EE ら 5 JR 生 ワ ロロ [HuUEDUt ER 多 上 LF 

19 デ /0 03/ 0 し EF TNCD 中 E ビ F 間 F ュ 1 己 拝 三 1 

102B ロ DO QOS の BD 7 日 っ DB PS5 ド EREC じ HE 

1 ひだ の 93 有 H 0 6 1 ER REFE ム RT 

中 6) っ (の. る BEINRRY EEGU 基 

1031 り - コ 0 け 3D アッ で ける (CU DD ら 6 \%D ュ ロロ 51 上 1On ロ † CR 

103 の で 0 5040 7 ア D で D 日 4 も 昌 上 まで DB 

10 う うり 04 うう どら アリ 」 っ 0 日 FINE BEBFMERR テ # ュ † FacChinE FrFoO ロ thgen ERROUR 
10 う 40 504 コ ロ 8D /F つじ る RGR INMFUT 

10 づ 5 ら 0 5G47 4C TNC \F ビ ロ 上 上 上 Ed FFO ロ Fam 

10 う 60 SO4 ロ コロ で る 沈 の ra BNE PPERR \ ュ すす ビビ ロモ ヒモ ロゴ FrFO ロ Fam た 上 hen ERR 
10 ス アロ リー 0 人 4 台 日 アロ っ 0 じ ム EGR INF'UT ちら E1 ロ UNLTIST 埋 (LDPDEF b セ yt) 
103BO 人 04 に 8BD 7 oO に じ ム ュ ES5R INF'UT % ら に 1 ロロ UNLTGT 揚 (1 ロロ weFr ロッ y ト 上品 ) 
1 0 る で 5 ら O4 ビ 8 EL 基 

1040OD ココ 04E BU / ム 6 っ つり し じ ら BSR INFLUT に 己 8 ロ Link F ビ ロ 1 ロロ 七 己 ビ (IDDE ビ Dy ッ 上 
10410 505O る 人 イ 4 D FPSH5 中 

1042CO0 GOS デ BD ノビ っ 0 じ 6 ESR INFIUUT テキ と 己 8 唱 LInk_FOinEF (1 ロ wF by モ ら 
10 り 43D 。 コ 054 ロロ E ロ URa ぅ > コ ル 1 キ す し 1 ロ ド PO1Tn も を も F ニ 宮 DOOO 
10440 ロコ 6 ビア 4 っ () 白 コ BEG E5 ト 上 hen ヒ 5 こ Ca ロー ( じ LIUJBE ルル RETURN) 
104 ロ ロロ ロロ 日 弓 D ら 6 っ りり じ 6 EGR INFUT ミ ビ 己 8 コ ロゴ Lin 己 NuimDF 

10460 05 1F ロロ 7 TFR n。H 

0470 呈 O05C 8BD ム 6 日 5 ら 0 選 6 RGR INF'UT 

1048HOD ヨコ 0SE 1 は E と ヒビ X% ロ 品 

10490 0860 OF EEF じ LR EEF 上 ュ 」 己 電王 0 (NOrm る 1 ) 

10500 コロ 6 ど BDD Bo6 15 りら ド も は ら 15 第 和 員 ロ モロ ロモ し Lin 己 NuimD 呈 ビ 

10510 5065 ED か JR ワレ ビビ ロロ モロ ロ い 上 DaC 己 


17 1 


1 ロコ ご () 
1 ロロ 3 いり 
10 ロ 4 
1 0 コロ 
1 0 ロム 
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n け る 日 0 し ロビ 
nn ロロ E 人 
j0 ら D 
コロ けら DD 81 ma ら CC ら 
っ 6F 折 ア は 0) 
71 ビア 1 ロロ 0 リロ 
002 (BE12O1 。000 の コロ ) 
1/ ア や 則 } 弱 加 
ら コ 07 コ で ら F ム ョ ロム D 
J り 0// 日 D 叶 D ココ) しら 
リプ 馬 7 (0) 
っ 7 日 4 ()F 
J30/D 1F ロ ヴ 
リア F 
ご 0 ア /F BDD 45 っ コピ ム 
ら 0 日 1 哲 ア 日 
ココ 如き 
っ 0 日 年 で ら F の アト 
コロ る 2 巨 拘 っ うら) 
っ 08 晶 
ご 0 日 日 けさ うし 
っ 08R 108BE 043D 
っ は ロ F mml 
J ロ 71 OF ロト 
OO ワ ュー BD 1 アア 
JO7 ら  E 年 うけ 
コロ 99 BDD DD9(F 
コロ 9 BD 9B 呈 GO 
ら 09F 0OC RF 
sn1 BD 10 wt 」 こ 1 
っ 0 り ム そ 2O0 本 本 2 コ ( 人 4 ヒ 
ご () 各 ら 
っ 0 ロロ ニコ 4 
っ 7/ DF けり ヴ 
コロ 后 人 9 6F 人 
(日 ら 6F じ 
ロロ D 6F 所 
mtWTA 1 
コロ 台 F BD CE ビ 4E 
っ けり ロッ ーー うり 
こう 5 
コロ HB うさ F ビ いう 1 ど 
っ (所 で ア F ら 50B2 
っ (OB うさ ム ど で 
ら 0HBRR SO E ウ っ らい 操 ら 
こ ー() 昌 し 
っ JOE じ BSD F 1 っ 0 ロビ 
SO 腸 アビ ビビ E ビ F 症 
コロ 1 
ら 0C1 BD に ピロ コロ 台 F 
し 直人 う アロ じじ 量 
me1] ご 
っ 0 BDD DO7 ア で 
コロ 0D 0 
OOCB 2 フ 7 OB る 
NE 5 0 が 
っ 0 じ F ビ け D4 うけ ロコ 
っ (JD 1 


F_LIGST 


JHTFUT 


じ し し けり は ヒ . 


RET 
芝 


ERECHE: 


江 


EF IERR 


IM に に) 


IN 
L.DX 
EL 
HGR 
り 「 身 
EE 


串 日 


社員 きき し じ 


* 将 
1MCUT 
9 % 十 


UTFUT 


ココ 
LTT1 
INFUT 
) 
革 も OF 
AB 

基 
INFUT 
3 ん す 


EE で 
し })5『 1 


昔 


せ り うう じ 
芋 呈 43D 


コト 
ま ビ F 
征 じ 1 アア / 


攻 池 生き DU 


中 D ワ F 
まま コロ 
征 ロ F 


BREICHE 


ル S 


に 3 

E コ ば 。 

5 半 ェ 

。 リロ + 
日 + 

基 

生じ E4E 


ピコ 
生 り うさ 1 で 
RET 
け で 。 ロ 
も 


導 
し し りら に 
和 も し じ ヒ F 4 


怖 - 
じ LUSE 
和 まじ DC 合 


内 
ま DO フ 7 で 
まじ 0 
RET 
あぁ 〇 2 。 
E8 ビ 


葉 


芝 上 1 し 1 巴 昔 三 ミ 


*1 填 End ロ f Line て then UUTFUT 


%1 半 ロ ロモ CNST 上 hn じじ ロロ nt 3nGU 所 


\D ょ ロロ 1 上 ュ ロ ロ ロロ LOUNET 


メロ ビ 選 ロ 三 by モ 上 5 ロ + LUNST 


※AF 選 ロ 
YY ビ ど 口 三 


TE 上 エー ロロ イキ 己 [ ロロ 己 ロ 1 
1/ ロ Bu キイ Er DE ロロ 1 


(NN ロビ 生き 1 ) 
D け 1 ミー キビ コロ ラビ 上 10 ロ Fi 


区 F ュ 1 王 井 三 0 
基 昌 ロロ 己 L し 1 ュ n 己 


%X 和 UE ロロ ut ロロ n 与 LinE 


党 uE ロ UE じ DR を LF 
\F11 品 井 = 1 


FI11 (DD の gi Da) 


し じ よ 所 8 に 1 上 BUf 告 呈 


草 し 上 曲 上 音 1 
革 R ロ 上 エロ ビ ロ すす に ビ ロ m BULLDF ロ ロ エ ュ ロ 己 


ロビ コト トード ツー ロロ UI ロロ 
キー ロロ ヒー ロロ 5 ロロ 上 hn RT 


キュ 十 ロ UIBh ら Bd 上 ロロ に らら 


基 選 コロ F ュ 1 呈 門 ロ ロ 量 ERRUIR 


ビビ ロト 己 に 上 上 PF ロロ F ュ am ERRUR 


基 上 TDI て 1 ロッ キロ 
\ ュ キー ロロ 上 En ロロ ロイ F ュ 1 己 上 heen RTE 


1 En ロロ ロイ F ュ 1 己 モロ ロロ 人 ヒ 呈 に は 口 史 


FABE OO ミ (BS212O1 OOO025) F_LIB【 


語 こ 。 


111 ム 60 5QOD1 人 FC し )F ュ 1 和巳 NaAm 所 『: 
1117D 5GDC . (J FCE DO] 

1 1 1 は END 

TTAL ERRHR GOOOOー ニ ーーOOGOO(O 

TIHTaAL MARNINGG OO0009ーー00(OO() 


FRHGRRM EEGIN DDR=5000 
FRHG ロ RRM _ END DDR= コ ODC 
FRUGRAM_ ENTRY DDR 三 革 基 基 


Bk EC に HH000 
Fi1 己 Nam 己 : 1 : 押 己 らら ョ ロ 忌 


1 いひ PRTINT "Tn ヒコ ら 選 ロイ Ca らら 己 モ 上 Dinary 中 己 。 モロ hi) ら DF ロロ Fa ゴロ 5 ほ ロ "上 FU こ ロ ビビ ヒエ 上 エマ 


っ OO FRTNT" ロロ ヒュ いち らら エロ ほら ロロ AD わい = 選 h D1 ロ CE and D1 ロ に FE ュ 15 55h ロ Fr 
その 0 PRTNT" and the mo モロ OF 5 上 Eon ロ OyeF モ th ロロ AD ・" 


40 FRINT "GO。 =ave Binary f11 W1 上 h 1 ロ nG BaD 1n 8HvVaT1 に 己 0 
50 FERTNT" (O1E ワ の ) 生ま OR ーーー 菩 下 0" 
69 FRTNT"Hr 。 push REV switch fpF a m ロ mnt vVBPFy 8D ・ 
ド Ray 
※ ディ スク エディ タ (4 一 5 一 6 サン プ ブル) の 実行 例 
RUJN 
DRIVE 1 
TRRUE. 』1 
gEUTUg 1 
DE 区 は は ILHRI FE トー デア 
DRIVE : 1 TRRERK 』 3 EE sm 肖 

+() 二 1 二 すう 十 邊 二 オ す 古 キア オロ す オキ 哲 キロ すじ +D +E +F 
nO =s QO00 FF FF FF FF 1 じ 9 1 04 GO も 6 ら ロロ H ビア 0 ロ 9 0 じ O 0 』。。。。。 チ ダグ ナ 。。 二 。 芝 。。 
人 邊 局 0D 6 0 0 し OU も は |) も 9 うき らら 1 も 1 も し うつ 1F 1 月  。。。。、 ダ デン キネ アナ チチ リザ 。。 
だ り 0 』 ビア 1 1 し と で 0U し 1) ビン ロロ] ご 4 と ココ し ビジ ビ / HOU3 し 1 し 1 ョ コリ ナリ チチ ネフ 【 チ サチ 
2 まき 。 MC1 DD に ) も に し だ も おり AM て 9 DU も り 0 し 0 し ON 3 に 0 ャ リナ リナ の リグ ナン ナツ 
Do 5 1 CO CS CS CE DO し 3 し 4 じ DO CO し CO 4/7 し 47 人 4 哲 4 日 チロ テテ リグ テト ヴ ウ ダヴ ロロ す 」 ド | 
SE 全 5 人 6 だ 提 5 だ た 正 世 出所 PE 選民 だ 屋 屋 机上 間 和 人 
生還 介 了 民 下 だ 。 失 た に まじ 愉 F と 写 選 - あ EE お CR に た に PE 
SE PE 志 区 PF 折 た 志 F 区 区 四 E 選 ほ PE た だ 人 E PP PE FE 
ロロ = 上 F 上 F 上 F ド F FF ト 上 F FF FF FF FF FF FFFF FFFF FFFF 0 ku に に に ュ a に ュ gakasssr 
屋 和 NN に 打 FF 人 所 EF 上 FF F ド F PF ド に よ F FFP で F 上 F FF 上 F まま FEF Smowmssxssx 思 te 
SI 本 六 所 所 中 所 に ビ ド F ドド ビビ と だ た に FFP た PP 
四半 更 民 た 本 に PP PR EE だ 反 所 まだ た わ だ ど た だ だ PF た に EE だ た PO MWT 寺 
MS BR 折 E だ じ に も に ルド だ た EE だ ド に だ だ だ まだ た F っ に PE ま 所 更 提 提 了 Ei 
間 60。 ま 
EE き 選 夫 所 た だ た 区 に だ た も だ も と だ た にし た に 中 に だ 名 右 操 名 あら 合 避 お 直近 
に き 生生 、 右 品 右 操 台 ああ な る あ 闘 だ 民 だ か PR 有馬 屋 店 だ ドド F 訪 に 団 生 生 幸 才 和 本 刺 awawwwww 


KEY 品 ーー EB じ DRFE 1H1G MHDE - し に ーー HHRDCUPY 


邊 
| 
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4 一 4 カセ ッ ト 入 出力 ルー チン 


4 一 4 一 1 カセ ッ ト 入 出力 ルー チン の 概要 と ワー クエ リア 


カセ ッ ト 入 出力 ルー チン の うち , 上 位 ル ー チ ン は カセ ッ ト 用 バッ ファ (05E 
Dー0 6EB) と の 入出 力 , 下位 ルー チン は BIOS を 使っ て 直接 カセ モッ ト と の 
入出 力 を 行っ て いま す . 上 位 ル ー チ ン は ,$C9E8 一 $C9F8 の ジャ ンプ テー 
ブル を 先頭 に . $C 9FA 一 $CC 3 3 に 配置 され て お り , 下位 ルー チン は $ 
D65D8-ー$D7F5 に 配置 され て いま す , 以下 に 答 サブ プ ル ー チ ナン に つい て 述べ 
て いき ます が , ワー クエ リア 名 は 下 表 に 示す た め に 省略 し ます . な お , “バッ フ 
ァ と いう の は 4 一 4 節 で は カセ ッ ト 用 バッ ファ (0 5ED-0 6EB) を 指し 
ます . 


(01E9), (01IEA) | ギャ ッ プ の 出力 定数 : アー タ の 出力 を 行う 前 の モー タ の 状態 が 。 ON な ら 
(0 19)= テ 80 上 (10) バイ ト 。 0 上 ドド な ら (0 1EA) = ニ $FF (2 
5 5) バイ ト の ギャ ッ プ (=$FF) を 出力 し ます . 


証 ss ーーーーーーーーーーーーー テキ ーーー ーー ドー に ーー ーー Se ee ーーーーーー"1 
| 
] 
| 


(02B0O :02B1) | カセ ッ ト 用 バッ ファ ボイン タ : カモ セット 用 バッ ファ の 先頭 アド レス ($0 
| 5ED) の 値 を 持っ て お り , 入出 力 に あたっ て この 値 が 参照 され ます . 


oo 


| (02CC:02CD) | カセ ッ ト 入 出力 先頭 アド レス : カ モッ ト の 1 プロ ッ ク と の 入出 力 を 行う と き 
| の 、 デ ー タ の 先頭 アド レス で す . 

| (0 2CE) | ブロック の タイ プ , カ セッ ト の 1 ブロ ッ ク の タイ プ で , eu 押 

| | の 際 に , プロ ッ ク の 先頭 に 出力 。、 あ る い は 入力 され ます ( 図 4・4・1 ). 

プロ ッ ク の 長 さ : この 値 が , で ヤー プア ァァァ ョ マコ ーッ キャ ( 較 

4・4・1). 

カセ ッ ト 使 用 フラ グ : ある ファ イル が カセ モッ ト を 使用 し て いる こと を 示し ま 

す . 入力 モー ド …$ 0 1 出力 モー ド …$ 02 

バッ プ ァ 中 の デー ー タ 数 : 上 位 ル ー チ TON ァ を アク セス する 際 の バ 、 ッ プ 了 

中 の 有効 デー タ が どの 位 あ る か 示し ます . 

バッ プ ァ 中 の ボイン タ . 上位 ルー チン が バッ ファ を アク セ モス する 際 の . 00 

セス する デー タ の アド レス を 示し ます . | 

| (02D4) テー プ フ ァ イ ルモード : : そ の テー プ フ ァ イ ル の モー ド を 示し ます -. 内 容 は 。 | 

| ファ イル の アス キー フラ グ (0 2 DC) と 同様 で す . また この 内 容 が (0 | 

2D6) に 代入 され る た め , アス キー フラ グ が 立っ て いれ ば ,. 1 プ ブロック 入 
" 出力 の 後 で は モー タ が OFF し ます . 
(02D5) | エラ ー フ ラグ : $.0 0… エ ラー な し $0 1… チ ェ ッ クサ ム 違 い の エ ラー 


$ 0 2 … 謗 み 取り 和 失敗 の エラ ー 


(02D2:02D3) 


(0 2D6) モー タス イッ チ フ ラグ : 1 プロ ッ ク の 入出 力 が 終わ っ た 後 の モ ー タ の 状態 を 
「 「 決め ます . 800…ON SFF…OFF 0 0 0 
(0 2D7) | モー タ 状 態 フ ラグ , モー タ の 状態 を 示し ます . $FF…ON $00…0 | 

| FF 


| ファ イル 名 出力 フラ グ : フ ァイル の ヘッ ダ プ ロック を 読み 込む 際 に , 「Sea 
rching」 や 「Found」 な どの メッ セー ジ を 画面 に 出力 する か どう か を 決め ま 
す . $ 0 0 … 出 力 す る 


7 の 5 


rm モー ーー ニュ エーーー ニョ ーー エー = = ーー ーーmm ニ ュ ュ エー mm 
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通り で す が , 


カセ ッ ト 上 の ファ イル の フォ ー マ ッ ト は , 文法 書 2. 1 0. 1 に 書か れ て いる 


答 々 の プロ ッ ク の フォ ー マ ッ ト を 下図 に 示し まし た . 


図 4・4・1 1 ブロ ッ ク の 内 容 


| | | テー ター | |srFG バ イト ) 
=$FF) に ト 
(0 2CC: 0 2 CD) の 示す チェ ッ ク サ ム 


モー タ ON の 状態 で は . 吉 別 了 

Ii『 夫 す | - 

| 10 バ パイ ト (01F9) アド レス か ら (0 2 CF) の バイ ト 色 の つい た 部 分 の 各々 の バイ ト 
の て (総和) 


OFF の 状態 で は , 
255 バ イト (01EA) 
ブロッ ク の 長 さ (0 2 CF) 


婦 の デー タ が 入出 され る 


プロ ッ ク タ イブ (0 2 し 5) 
「 ヘッ ダ プ ブロック $ 0 0 
| テー タプ ロッ ク $ (0) ] 
し エン ドブ プ ブロック ゃ FE 


図 4・4・2 ヘッ ダブ ロッ ク の 内 容 


デー タ 部  〔 長 き は $14(=2 0o) バ イト ] 


| 


(0 2 CE) 
mw 0 0 マデ ー タ ババ イト 
(0 2 CE) (02D4) 

プロ ッ ク の 長き (02D4-02E5) テー プ ブフ ァイル モー ド “ 

2 「 _ | バイ ナリ $00 

(デー タ 部 の 長 さ ) ファ イル 名 「 プ ログ ラム ファ イル | 
1 アス キー$FF 
デー アカ ジャ イル 

(0 2 DB) %FF 
(02 DC) 


ファ イル タイ フ 


BASIC ソ ー ス $00 アス キー フラゲ 
)BASIC デ ー タ $01 「 ア スキ ー SF ドド 
| マシ ン 語 ファ イル $02 1 バイ オナ チリ 。 SO0 


図 4・4・3 ンド ブロ ッ ク の 内 容 


ナ ェ ッ ク サ ム 
プロ ッ ク の 内 容 の ぶ (総和 ), 
と な っ て いる 


(0 2 CE) 
プロ ッ ク タ イプ (02CF) 
プロ ッ ク の 長き 


$ 上 ドド すき 500=$FF 


図 4・4・4 デー タブ ロッ ク の 内 容 


(0 2 CE) C 間際 ッ ク アサ ム 
0 2 し じ ま ) の 傾 が 入出 
プロ ッ ケ クタ イア U を ま も お ) する プ ブロック の 内 容 の と (総和 ) 
バイ ト 数 に な る 
ブロ ッ ク グ ク の 藤 さ 
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4 一 4 一 2 カセ ッ ト オー プン (OPEN) ルー チン 


3 $CA06ー$CA8C 


カセ ッ ト に 割り 当て られ た ファ イル を オー プン (OPEN) する . 


A。 B, X,U 
A レジスタ ニニ ファ イル の モー ド (入力 …$ 1 0, 出力 …$ 2 0 ) 
(0 2 DD) ニ フ ァ イル 名 の 長 さ ) 
(0 2 DE 一 0 2E5) ニ フ ァ イル 名 | 
(0 時 
(0 2 DB) = ファ イル タイ プ カモ ー ト の 浅 合 は 


(0 


2 
2 
2 
2DC) ニア スキ ー フ ラグ 
| 復帰 情報 | (0 2 D0) ニカ セッ ト 使 用 フラ グ ( 入 力 …$ 0 1, 出力 …$ 0 2 ) 
(0 2D6) ニモ ー タ スイ ッ チ フラ グ 
"WORK | (02B0:02B1) ⑥ , (0 2CC:02CD) W 
(0 2CE) ,。 (0 2CF) W 
(0 2D0) @⑥ プ ⑩ 。 (02D1) 
(02D2:02D3) ⑩ , (02D4) @⑥ ン ノ ⑳⑩ 
(02D6) 。 (0 5ED<06EB) ⑤⑥ ン ノ ⑩ 
(0 2DB) ⑥ ン プ ⑳ 。 (0 2DC) @ プ ⑩ 
(0 2DD) 。 (0 2DE 一 02E5) Q 
S UB| $CA70 一 カセ ッ ト 用 の ポイ ンタ 初期 化 ル ー チ ン 
$ ゃ CA8D 一 カセ ッ ト 1 ブロック 入力 ルー チン 
$CB 5 7 一 ヘッ ダブ ロッ ク の 入力 と ファ イル 名 表示 ルー チン 
ゃ C じ CAC 一 ファ イル 名 転送 ルー チン 
$ ゃ や D7 72 一 モー タ OFF ル ー テ チン 
ゃ D794 一 カセ ッ ト 1 ブロッ ク 出 力 ル ー チ ン 
$EC0 5… 音 関係 初期 化 ル ー チ ン (バッ ファ の クリ ア を 実行 ) 
| 終了 条件 | カセ ッ ト が 使用 中 な ら [〔( 0 2D1) ミ 0] , “Device In Use” エ 
ラー (CAAE) を 発生 させ る . 
出力 モー ド で ファ イル 名 の 長 さ が な い 〔 (0 2 DD) =0〕 場合 は 
"Bad File Descriptor' エラ ー ($ ふ CCFC) を 発生 させ る . 
入力 モー ド で ヘッ タダ の 読み 取り に 失敗 する と “Device | コン O Error" 
($CAB1) を 発生 させ る . 
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解 説 | 動作 内 容 は , 出力 モー ド と 入力 モー ド で 異な る 部 分 が あり ます . 
(1) 出力 モー ド , 入力 モー ド 共 通 部 分 $CAU6--$CA17 
@ カ セッ ト 使 用 フラ グ (0 2D0) が 立っ て いれ ば , エラ ー に し ます . 
@PLAY 文 と 同じ バッ ファ 儲 域 (0 5EDー06EB) を 使用 し て いる 
だ た だめ, バッ ファ 傾 域 と 音 関係 の 初期 化 ($EECO5) を 行い ます . 
(2) 出力 モー ド $CA18-$CA7 2 
グチ イル 【020 じ 0255D) 、 ファ アイ ルクス イン (020DB) 。 ア 
ーー ソラ タク (0 20 し C) 。 デー フク テイ ルモード (024) る パッ 
ファ (0 5ED~ーO06EB) に 設定 し た 後 .。 カモ セット を 動か し 〔((FD 0 
0) ー$C2)], 1 0 秒 待っ た 後に カセ ッ ト に 出力 し ($D794: 
図 4・1 ・2 参 ) , モー タ を OFF し , カセ ッ ト 使 用 フラ グ (0 2D 
0 ) を 立て 、 モ ー タ スイ ッ チ フラ グ (0 2D6) を 設定 し ます . 
@$ バ パッ ファ の ボ ポイ ンタ の 初期 化 (5CA70) を 行い ます . 〔(0 2D2・ 
0 2D3) 一 $0 5ED,。 (0 2D1) ー$00〕. 
(3) 入力 モー ド $CA73 一 $SCA8C 
@ ペ ヘッ グ ブ ロッ ク を バッ ファ に 読み 込み . ファ イル の 指定 の ある 場合 は 目 
的 の ファ イル 名 で ある か を 確認 し ($CB57) , バッ ファ の ボイン タ 
の 初期 化 を 行い ます ($CA70). 
アテ イル レタ イア (02DB) チチ ス キー ソフ ラノ (02 DC() テー ララ アァ 
REO クウ 004) 、 モー クス イッ チア ラグ (0 2D6) る 隊 十 し 。 
欠 の 1 ブロ ッ ク を バッ ファ に 入力 し ($CA8SD) , カセ ッ ト 使 用 フラ 
グ の (0 2 UM の 0 き W> 


ee 


4 一 4 一 8 カセ ッ ト クロ ー ズ (CLOSE) ルー チン 


アド レス | $CAB6 一 $CAE3 
機 能 | カセ ッ ト に 割り 当て られ た ファ イル を クロ ー ズ (CLOSE) する . 
レジ スタ | A, B, X 
入力 情報 | A レ ジス タニ ファ イル モー ド (入力 …$ 1 0, 出力 …$ 2 0 ) 
WORK | (02D0) ,。 (0 2D1) Q 
SU り U 日 | $ も CB36, $CB3 8 一 1 ブロ ッ ク 出 力 ル ー チ ン 

$ も D76F, $D7 7 2 一 モー タ ON, OFF ル ー チ ン 


時 
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解 。 説 | 出力 モー ド で は , 事前 に 次 の 動作 を 行っ て いま す . 

バッ ファ アァ に まだ 出力 され て いな い デ ー タ が 残っ て いれ ば ((02D1) 
)。 デー クン フロ ロッ ク と し て それ を 山 力 (DOBS6) し ます 

@ 次 に エン ドブ ロッ ク 人 ( 図 4・4 ・3 ) を 出力 ($ CB 3 8 使用) し, その後 モ ー 
タ を ON ($D7 6EF) し て , テー プ に 約 1 ~- 2 秒 の 空白 領域 を 作り ます . 

入力 モー ド と 出力 モー ド で 共通 に 次 の 動作 を 行い ます . 

@ モ ー タ を OFF ($D772) し , カセ ッ ト 使 用 フラ グ (0 2D0) を クリ ア 
し て , カセ ッ ト を 使用 し て いる ファ イル が な く な っ た だ た こと を 示し ます . 


4 一 4 一 4 カセ ッ ト 出 力 ル ー チ ン 


カセ ッ ト 出 力 ル ー チ ナン は 4 つ あ り ま す が , そ の 各々 を 上 位 ル ー チ ン か ら 下 位 ル ー 
ナン へ と 順番 に 並べ る と $ も CB1E (バッ ファ に 1 バイ ト 出 力 ) も CB36 
(1 ブロ ッ ク 出 力 上 位 ル ー チ ン ),。 $D 7 9 4 (1 ブロッ ク 出 力 下位 ルー チン )。, 
ゃ D7E3 (1 バイ ト を 直接 カセ ッ ト へ 出力 ) と いう よう に な っ て いま す . 


凶 4・4・5 2 セツ トド 回 カル ー チ ン 


ン ン A レ ジス タ の 内 容 を バッ ファ に 出力 
バッ ファ の 内 容 を SCB36 すす 人 下 
カセ ッ ト に 出力 S06EB 


(1) カセ ッ ト 1 バイ ト 出 力 (バッ ファ に ) ルー チン 


$CB1E-$CB35 
機能 | カセ ッ ト (バッ ファ ) に 1 バイ ト 出 力 する . 


| 入力 情報 | A レ ジス タニ = 出力 デー タ 
(0 2D1) ⑥ ン ノ ⑲ ,。 (02D2 :02D3) ノンノ ⑳⑩ 
$ も CB 3 65 つ バッ ファ か ら カ セッ ト へ 1 ブロ ッ ク 出 力 す る 
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| 説 | ボ ポイ ンタ の 示す バッ ファ 内 の アド レス に デー タ を 1 バイ ト 出 力 し ま 
す が ,。 バッ ファ が いっ ぱい の 場合 は ,。 バッ ファ の 内 容 を デー タブ プ ブロック と し て カ 
セッ ト に 事前 に 出力 し ます . これ を ワー クエ リア と の 対応 で 見 る と 次 の よう に な 
り ま す . 

@ バッ フ ア 内 の デー タ の 長 さ (0 2D1) が 255 (=$FF) , 即ち ,。 バッ フ 
ァ 右 域 が いっ ぱい の と き は ,。 バッ ファ の 内 容 を カセ ッ ト に 出力 し ます ($CB 
6 、 

※ 出 力 し た 後 は 、 (0 2D1) は 0 に , (02D2 : 0 2D3) は バッ ファ ティ の 先 
頭 ア ドレ ス (=$ 0 5ED) に 設定 され ます . 

@ ホ ポイ ンタ (0 2D2 1:02D3) の 指す バッ ファ 内 の アド レス に , A レ ジス タ 
の 内 傘 を 格納 し た 後 , ホイ ンタ (02D2:02D3) を 十 1 し ます . 同時 に 
デー タ の 長 さ (0 2D1) も 十 1 され ます . 


(2) カセ ッ ト 1 ブロ ッ ク 出 力 (バッ ファ より ) ルー チン 


アド レス | $CB36, $CB3 8 一 $CB4A 

- 能 | バッ ファ に 格納 され て いる デー タ を , デー タブ ロッ ク と し て ($ 
CB 3 6 ) , ある い は その 他 の タイ プ の ブロ ッ ク と し て ($CB 3 8 ) , それ ぞ 
れ カ セッ ト に 出力 する . 

タ | A, BB, X 

入力 情報 | $CB 3 8 エン トリ の 場合 は , B ロ レジ スタ に ブロッ クタ イプ を 代入 
し て お く 〈 く (ヘッ ド …$ 0 0, デー タ …$ 0 1, エン ド …$FF) . 
(02B0 :02B1)  , (02CC:02CD) 

(0 2 CE) 。 (0 2 CF) W 
(0 2 D1) 
$CA7 0 一 バッ ファ ボ ポイ ンタ, デー タ 数 の 初期 設定 
$D 7 9 4 一 カセ ッ ト 1 ブロ ッ ク 出 力 ル ー チ ン 


解説 | $CB36 を エン トリ と し て この ルー チン を 呼ん だ 場合 。 (0 2C 
BB) に ゃ DU 上 る 代入 し て いる の で 。 デ ー タ クジ ロック 【 図 4 ょ 4 < 4) と し て 卓 力 
され ます . 他 の タイ プ の ブロ ッ ク と し て 出力 する 場合 は , $CB 3 8 を エン トリ 
と し て 。 入力 情報 で 示し た よう な パラ メー タ を B レ ジス タ に 代入 し て お く と 。 そ 
れ が (0 2 CE) に 代入 され ます . また だ た , この 後 は 次 の よう な 動作 を 行い ます . 
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@ 入出 力 先 頭 ア ドレ ス (0 2CC: 0.2CD) に バッ ファ 先頭 アド レス $ 05E 
D(02BO:02B1) を 代入 し , 今回 出力 する ブロ ッ ク の バイ ト 数 (0 
CEF) と し て , バッ ファ 中 の バイ ト 数 (0 2D1) を 設定 し ます . 

@$D794 を 呼ん た で 。 バッ ファ の 内 容 を 1 ブロ ッ ク と し て テー プ に 出力 し た 後 


本 8 お 計 ま の 0 計時 本 涯 に 


(3) カセ ッ ト 1 デブ ロック 出力 (汎用 ) ルー チン 


| アド レス | $D794 一 $D7E2 


機 能 | カセ ッ ト に 1 ブロック 出力 する . 
A, ビ , 入 
入力 情報 (0 2 CC : 0 2 CD) = 出力 する メモ リ 領 域 の 先頭 アド レス 


(0 2 CE) ーー 出力 する ブロ ッ ク の タイ プ 

(0 2 CF) ー 出 力 す る ブロ ッ ク の 長 さ (バイ ト 数 ) 
IWORK | (01E9) ,。 (DU1EA) Q 

(0 2CC:02CD) ⑥ , (0 2CE) 

(0 2CF) 。 (02D5) ⑥ 

(02D7) 


$D 7 8C 一 ギャ ッ プ 出力 ルー チン 
$D7E3 一 カセット 1 バイ ト 出 力 ル ー チ ン 


解 。 説 | 動作 の 手順 は 次 の よう に な り ま す . 

@ モ ー タ を ON ($D76F) し ます . モー タ を ON する 前 に すでに モー タ が O 
N 状 態 な ら (0 1E9) の 内 容 ( 三 $0A) の バイ ト 数 , OFF 状 な ら (0 
1EA) の 内 容 ( 三 $FF) の バイ ト 迷 だ け ギ ャ ッ プ を 出力 し ます . 

@ ] ブロ ッ ク 出 力 し ます ( 図 4・4・1) . 

@$ モ ー タ スイ ッ チ フラ グ が 立っ て いれ ば 【(0 2D6) 三 $FF〕) , モー タ を OF 


FE ($D772) し ます (この 部 分 は , 他 の サブ プ ブル ー チ ン か ら も 呼ば れ て お り ., 


その エン トリ は $D7 DD で す ) . 
ラー が パッ プク ァ テ ぞ 介し て デー クタ ぞ で 出す る 場合 に ほ は,。 あし BB30 る 人 戻っ ん た 方 
が よい の で す が , バッ ファ を 介さ な いで メモ リ の 内 容 を 出力 させ た い 場 合 に は . 
sm の 0 ルー カン を 全 の だ 放 が 有 錠 と な り ま よ ます, 
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5 。 .』』. EE5E55 ミ ミミ TS 


(4) カセ ッ ト 1 バイ ト 出 力 (直接 カセ ッ ト に ) ルー チン 


| アド レス | $D7E3~ー$D7FB6 

機 能 | カセ ッ ト に A レ ジス タ の 内 容 を 直接 出力 する . 

| レジ スタ | A, B, X, Y (全て 保存 ) 

A レ ジス ター 出 力 す る デー タ 

| 復帰 情報 | C フ ラグ ニ = ニ エラー 発生 時 に セッ ト さ れる 
|IWORK | (05A0D 一 05A2) ニ BIOS へ の RCB 用 W 
$00DE つ BIOS ジ ャ ンプ ルー チン 


$D67 8 一 Abort ルー チン 


解 説 | BIOS の CTBWRT [シス テム 仕様 2.1.4(2)〕] を 用 いて カ 
セッ ト に A レ ジス タ の 内 容 を 出力 し て いま す が ,。 プレ ー ク ・ キ ー の チェ ッ ク を 行 
っ て いる の で ,。 ブレ ー ク ・ キ ー を 押し た 場合 は Abort し ます . 


4 一 へー う 5 カセット 入力 ルー チン 


カセ モッ ト 入 力 ル ー チ ナン も , 出力 ルー チン と 同様 に 。 4 つの サ プ ル ー チ ン が あ 
り 。 各々 が 出力 の 場合 と 同じ レベ ル で 対応 し て いま す . これ ら は , 上 位 ル ー チ ン 
か ら 順 番 に $CB0 2 (バッ ファ か ら 1 バイ ト 入 力 ) , $CA8D (バッ ファ に 
1 ブロ ッ ク 入 力 ) , $D6D8 (1 ブロ ッ ク 入 力 ) , $D7 3E (カセ ッ ト か ら 
2 hk だ の 0 で ます 


区 4・4・6 カセ ッ ト 入 カル ー チ ン 


1 7\ ゴ イト 入力 は , 
ポイ ンタ 


征 ロ ア コ E 
CM の まや の 屋 還 


ゅ 05 上 ED 
に 
PJ cy 本 ( 
A レ ジス タ に バッ ファ の 内 容 を 入力 
カセ ッ ト か ら [RGASD1 


ScBoz 
bp Pa 4 25 才 gp ISD6D8l 


『 
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ーー 


1) カセ ッ ト 1 バイ ト 入 力 (バッ ファ か ら ) ルー チン 


$CB0 2ー$CB1D 

カセ ッ ト (バッ ファ ) か ら 1 バ イト 入力 する . 

A, 日 , X 

A レジ スタ = 入力 デー タ 
(0 0C0) = 入力 する デー タ が な いと $FF に 設定 され る . 

(0 2D1) ,。 (02D2 :02D3) @⑥ ン ノ ⑲ 
(0 0C0) = 入力 デー タ 終 了 フ ラグ ⑳⑩ 

SU ご B $ も CA8D 一 カセ ッ ト か ら バ ッ フ ァ へ 1 ブロ ッ ク 入 力 


解説 | この ルー チン の 動作 内 容 は , 次 の よう に な り ま す . 

@ デ ー ク が な い (0 2D1) 三 0〕 と き は , (0 0C0) を 反転 きせ て $ FEF と し , 
リタ ー ン し ます (終了 判断 )。 

@ それ 以外 の と き は , ボイン タ (0 2D2 : 0 2D3) の 指す バッ ファ (05E 
D~-06EB) 内 の アド レス か ら A レ ジス タ に 1 バイ ト 読 み 込ん だ 後 , ボイン 
2 (UM2D290 ル 03) を 中 1 し デー ク の 長き さき (02 を 一 し 5 
99 

$ こ の と き , バッ ファ 内 に デー タ が な く な っ だら (0 2D1)=0」 , 次 の ブロ 
ッ ク を バッ ファ に 読み 込み ます ($CA8D). 

※ こ こ で ,。 (02D1) と (02D2:02D3) は 読み 込ん だ ブロ ッ ク が デー 

タク フロ ッ ク で ある 場合 に は 新た に 初期 設定 され る の に 対し . エン ドブ ロッ ク で あ 

る 場合 に は (0 2D1) =0 と し , 次 に この ルー チン を 呼び 出し た と き に ファ イ 

ル の 読み 込み が 既に 終了 し て いる こと が 認知 で きる よう に し ます . 


(2) カセ ッ ト 1 ブロ ッ ク (デー タブ ロッ ク , エン ドブ ロッ 
ク ) 入力 ルー チン 


| アド レス | $CA8Dー$CAAD 


機 能 | カセ ッ ト か ら バ ッ フ ァ に 1 ブロック (デー タン ノエ ンド ) 入力 する . 
Ar B X 


|IWORK| (02B1:02B2) ⑥ , (02CC:02CD) W 
(02CE) ,。 (02CF) @ 
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(02D1) 。 (02D2:02D3) 


| S U B| $D6D8 一 カセ ッ ト 1 ブロック 入 力 ルー チン 


終了 条件 | エラ ー の 際 は , “Device | プ O Error' (も CAB1) を 発生 させ る . 


解 " 説 | ワー クエ リア と 関連 づけ て , 次 の 動作 が 行わ れ ま す . 

@ 入出 力 先 頭 ア ドレ ス (0 2CC: 0 2CD) に バッ ファ の 先頭 アド レス $ 0 5 
ED (02BO:02B1) を 代入 し , $D6D8 を 使い 1 ブロ ッ ク を バッ プ 
ァ に 取り 込み ます . この と き , エラ ー が 起こ っ た 場合 や , ヘッ ダブ ロッ ク を 読 
み 込 ん だ 場合 〔((0 2CE)=$ 0 0}) は ,。 $CAB1 に ジャ ンプ し ます 。 また , 
エン ドブ プ ブロック [(0 2 CE) ニ $FEF] の と き は 。 この 時 点 で リタ ー ン し ます . 

@ ブ ロッ ク の 長 さ (0 2CF) を 見 て 。 0 で ある 場合 は 始め か ら や り 直 し ます . 
それ 以外 の と き は , ブロ ッ ク の 長き さき を バッ ファ 中 の デー タ 数 (0 2D1) に 代 
入 し 。 バッ ファ の 先頭 アド レス $ 0 5ED を バッ ファ ボ ポイ ンタ (02D2:0 
03) 信人 代入 し ます 。 


(3) カセ ッ ト 1 ブロ ッ ク 人 入力 (汎用 ) ルー チン 


「 アド レス | $D6D8$D72F 
| 機能 | カセ ッ ト か ら 1 ブロ ッ ク 入 力 する . 
A, B。 X 
| 入力 情報 | (0 2CC: 0 2 CD) ニテ 入力 先頭 アド レス 
(0 2 CE : 0 2 CF) ニブ ロッ ク の (タイ プ : 長 さ ) 
BB レジ スタ ニニ チェッ クサ ム の 値 
2 の =ー エ ラー が な いと き に セッ ト さ れる . 
「IWORK | (02CC:02CD) ⑥⑯ , (02CE) W 
(0 2CF) 。 (02D5) @⑥ ン プン 
SU B| $D7 3 0 一 エラ ー が な く な る まで , 1 バイ ト 読 み 込む 
$D 7 35 一 1 バイ ト 読 む . エラ ー の 際 は この ルー チン を 終わ ら 
せ る. 
も $ も D76F 一 モー タタ ON ルー チン 
$D7DD 一 (02D6) モ 0 の 場合 は , モー タ を OFF す る . 


任意 の ブロ ッ ク を 読み 込め る , この ルー チン は 次 の 動作 を し ます . 
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@⑥ 5 バイ ト 以 上 の ギャ ッ プ ( 三 $ FE) を 確認 し た 後 。$501, $3 し の ブフ ブロック 
識別 子 を 確認 し . (0 2 CE) に ブロック タイ プ , (0 2 CF) に ブロ ッ ク の 長 さ 
を カセ ッ ト か ら 読 ん で ,, 代入 し ます ($D730 と $D735 を 使用 ) 

@ こ の 後 。、(02CC: 02CD) Mi (0 2 CF) の 示す バイ ト 
狗 だ け デ ー タ を 読み 込み ます ($D735 使 用 ) この 間 。 チェ ッ ク サ ザム 
し , 最後 に 読み 込む チェ ッ ク サ ム と 周 合 し , 違っ て いれ ば (0 2D5) に 


を 計上 
〇 
を 代入 し ます . 終わ り に $D7DD を 使い 、 モ ー タ の OFF を 決定 し ます . 


0 1 


(4) 1 バイ ト 入 力 (直接 カセ ッ ト か ら ) ルー チン 


$D73Eー$D757 ($D730$D7 3 4) 
機 能 | カセ ッ ト か ら A レ ジス タ へ 1 バイ ト 入 力 す る 
| レジ スタ | A, X (BB, X, Y は 保存 ) 
A レ ジス タテ カセ ッ ト か ら の 入力 デー タ 
C フ ラグ ニテ エラー の 場合 ,. セッ ト さ れる 
IWORK | (05A0D 一 05A2) =BIOS へ の RCB @ ン ノ ⑳ 


$D6 7 8 一 Abort ルー チン 


$ も 00DE つ BI1OS ジ ャ ンプ ルーチン 


BIOS の CTBRED [シス テム 仕様 2. 1.4(3)〕 を 用 いて い 
ます , $D7 3 0 は エラ ー が な く な る まで 読み 込み を する と いう も の で す . 


4 一 4 一 6 その 他 の 主 な カセ ッ ト 関 係 ル ー チ ン の 概要 
(1) モー タ の ON・OFF 


| アド レス | $SD758-$D78B 
レジ スタ | A, B, X  (X は 保存 ) 


| 解説 | ON する の は $D76F, SD778.OFF す る の は $D77 2. 
$D77B と いう エン トリ が あり ます . SD778,. $D7 7 B は モー タ の 状 右 
フラ グ (0 2D7) を 変化 させ ませ ん (この ルー チン は BIOS の MOTOR を 
用 いま す ). 
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(2) ヘッ ダブ ロッ ク を 読み 込ん で , ファ イル 名 を 画面 に 出力 


| アド レス | や ふ や CB57$CBB4 


AMOS の 7 軸 ウ ツウ グ の 2 の し 2 本 


て の ) HH 人 人 1 


。 9 
耳 


4 一 4 一 7 サン プル 


カセ ッ ト か ら 1 ブ ロッ ク 読 み 込み その 内 容 を 1 6 進数 で 表示 させ る と いう サ 


ンプ ブル で す . 注 韻 
が 短い た め , 続け て 読む と き に プ ブロッ ク を 1 つつ 読 
に は , 少し 巻き 戻し て お く か , 
増やし て お く 


を 防ぐ 
キャ ッ プ 数 を $8 0 
で は デー タバ ベッ ファ と し て $40 00 一 の メモ リ 


ドロ ヒ 


1 (1()(.) 


()(.) 1 


(ETEO1 。 000 アラ ど ) 


生 す べき さ と ( 生 。 


ぐら ちい に 


え し 品 ョ ヨロ 1 B1 ロ トド 


じ RSSE『 


を 行い ます . SN T( の フウ 下 グ クック スム 
上 ファ イル 名 や SKIP 
き は 。 再び ファ イル の ヘッ ダ の 読み 込み を 繰り 


な ど を 表示 し , 指定 の ファ ィ ル ょ 


バイ ナリ セー プ の 場合 


中 で な けれ は ば 


Suloei9 。 


飛ば す と いう こと で す 。 


こと が 必要 で す . な お , 


空間 を 使用 し て お り ま す . 


† キ ロロ 岬 じき 5 上 結 呈 


1010) は nH ビビ ュ ロ ヒモ ニー ロキ 1 

1 0 ご ロ Na . じ CASBSET 

10 る ロビ T ME 。NUGEN 

(31 生け 0 GE Ti DF 事 り (0) 

105 ひ 昌 OOO RG 征 司 OO 

510 り 6 けり 5000 RBD D ア 6F J 5 ド も D ア 6F キ MIUTUR UN 

10 ア 0 pnS コト じ LRE 

108D 5004 ミ 4 ()4 F 5H5 る 

GO107 グ 0 06 BE 人 0 し DX 李 人 00O 

ほす も っ (9 hEF ELU 逢 

1110 5OO9 BD D アラ JGR 呈 DD アラ キ 呈 01 CHCE 

O11 で 0 SOOC 日 1 () 1 C じ MFP 台 提 邊 (0) 1 

け 511 う さり 5 ら OOE 且 ム ら F 7 っ 0) BNE REF' 

11 人 40 5O10 BEBD D ア ミロ JSR あけ 7 ミエ 0 あ そ じ じじ h 呈 ヒト 

(1131 コロ っ 50O13 日 1 うさ し し MFP 台 性 本 こじ 

ロロ 1 らら り - コロ 15 ら ご ら F ご っ りり BINE REF' 

011/ プ OUD 5 ら 501 ア 7 BDD D ア ラロ J5R も D ア ラロ *F BB1OCE TyD InDU 上 
011BD) 501 仙骨 7Z は (.) 5 1 由 s。 人 填 

けり 1190 5O1C ED D ア さき りり ドド おり 7 ア う 0 若 己 1 ロ CEF LEBri ロ Eh Input 
DO1SO00 。 501F ロア 8 STA > X 

01210 うら 0 ジ 1 操 / E 和 4 ら 「 台 * 

1 で で り っ りく REF' ご EGIU 6 

SB 所 テア ⑦ っ リ ジ ヒ EEEI 入っ 1 きき 上 二 し 己 ロ ロキ ロ 三 ロ 上 ロロ 己 hn 己 ら に 1 
1 で オロ 502 ロ BDD D り アス 0 リド も D ア ラ () え DA キ コー Tn ロロ Du 革 
1 で ロロ リー 502 碧 ア (0) 5 ら 「 百 。 XX 十 

1 で らら 0 り 0 50OS 折 る F 和 DEC じ に 

リ 01 フ アロ 0 50O2CD に O F 選 (に ER 所 ド RE ドジ 

け 1 で は 1 Pu コ E5 ビ 1 E GL 3 

001 で や 90 SOEE ED アプ 計 け りら 5 ド 呈 D ア スロ ま じじ hcC ト Buum Input 
01 00 OS1 人 ア 人 4 ら T 折 5 才 

1 そる 10 50 こさ BD D り アプ アブ J ちち も D ア プ で テ MDUTUR ロ UFF 

けり 1 さ ど ご りり 3 さら うら () 馬 FUL5 日 

ロロ 1 うう けり らら 03 OF EEF 旧 | 期 =1 コ 

り 134 オ 40 。 GO3 コ さり 8D OO57 L. ヒ EX ME ロ 1-1 。 じ じ ド 


- ド OUN 
異な る と 


, ブロ ッ ク 間 の ギャ ッ プ 数 
こ : 
セー ブ す る 際 に あら か じ め (01E9) の 
この ルー ナチ ナン 
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(1 うう () 
1 さら 
け 1 3 アロ 
1 5 昌 ( 
1 そ ワ ロロ 
け 1 年 () 
けり 1 人 410 
') 1 ご いけ 
1 介さ 
')1 人 年 ロ 
1 4 
1 4 る 6() 
ロ 1 生 ア ロ 
1 年 ロ 0 
1 作 7 ロ 
01 ロ O 
DO51 4 
1 コン ロ 
1 こさ いい 
1 生け 
1 こつ 
けり 1 も 
けり エロ アロ 
158(O 
け は ユマ 
1 OO) 
1610 
1 6 ら どり 
けり 1 らぶ 
け 1 右 人 4 
16 ら つら 0 
1 らら 0 
1 る アロ 
1 6 日 () 
1 5 ワ ロ 
(1 ア (0) 
1 エア 10 
1 アデ ロ 
ロア さ ロ 
(1 アア 生け 
け は 1 コロ 
1 ア ら 0 
(1 アア 
1 アロ 
1 アワ () 
(1)O 
1 ロロ 1 け 
1 どい 
うけ 1 は う 30 
1 日 4 
TUTRL 
TUTaL 


っ つけ 3%E EFD 
うけ 和仁 1 BD 
50444 
4 日 3 
504 じ ED 
うけ 全 F 各 ら 
っ 0 りら 1 BDD 
ロロ 5 人 4 BD 
RE が 。 kk) 
っ 5 日 BD 
っ (EE 生 ら 
コ の 6 らら 4 
つけ な に ロ D 
うり らら さり 0 
っ りら 7 BEBD 
っ うり りら じ BD 
っ う 06F 6 ム 6D 


bo 


507 さ Aa6 
50755 BD 
5O78 ED 
5o7E BD 
507E 6a 
BOBO 26 


っ 08 ジ BD 


FRDGRAIM BEGTIN 


FRUpRAM END 


っ 0 日 
っ 0 ロコ 3 DD 00 コ DD 
っ 0089 BD pgDE 
っ 0 日 じ 折ら 各 作 
(7 は 上 RD 生じ 3D 
ら 5091 BD ピロ コロ 
うつ リ ロワ オー ニコ 昌和 
つり ワム 
うり ワム | 
っ ) 白 ()( 1 
っ) 白 ご 
っ () 生 で 邊 ピ 
JJ 選 ら = (.) 
(人 [「[) ()( 1 
っ (うじ ヒ 
っ し じ ヒ 條 で 
うけ DF (0)() 
うり に ヒ () 
っ (0) 上 < けり 
っ ロト ら (}() 
っ (0E ア 
っ リヒ ア 中 うき 
コロ リト CO) 
本 1()() 
ERRUR5G 000OOOーー0O0000 
MRNTINGS_O000 ワ ーー00000 
nnDDR= ニ 800O 
ロ DDR= ニ 50F5 
DD ド = ニ コロ OO 


PRUGRRP_ ENTRY 


EKE し HOO 


1 BLOUCE 
RLULK 「YFE 


DF 


BDDB 
BOO 

中 (000 
DO ロロ 5 
ワ ロ DE 

生 O 

ロビ ュ D 

7 如 0 

8BD 007 ア 2 
EDB 

生け 

が 

生じ 3D 

GBD 0 アム 
BEBDE 

マロ ロロ 

上 衝 

1 で コロ ロロ 
うけ アッ 

台 ロ 

ロロ じじ る D 
ワウ ロ ジフ 
ロレ エン 

E 和 4 

F 1 19 
BEB50 


BLUCEK LENG ロ TH ・・ 率 14 ロッ 上 
らら 。 49 50 2E っ 46 4D 2D 
CHECEK GUM ・: 呈 2 日 

ド 己 8 ロッ 
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REF マ 


ユニ 1 9 の 


MES1} 


MES マ で 


ME ら 5 


さ / 


(中 りり ニーHERD まり 1= ニ DAT も FF ヒ =END) 


ホ も 7BDE 
や マコ 


寺下 40 


区 円 己 弓 弓 8 ロ 己 1 FFP jn モロ O ぃ い 
天 し 1 品 己 F 上 ロロ 


MES2ー1 ,FCR 


まもり ED 
の 

ま QC3 う D 
まま 9B5O 


光 門 万 ほら 3 コロ ご ビ FF ュ nh モロ ロキ 

区 1 ロビ ヒド 「yD 与 ビビ 1 ロモ ヒ ロ UL 上 
区 日 選ぶ 下 ビュ ロモ 上 ロ い キ 
区 | 1 ロロ 己 上 呈 己 ロ 


MES マ ー1 ,FCR 


生 ワ RBDB 
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4 一 5 ディ スク 入出 力 ル ー チ ン 


4 一 5 一 1 ディ スク 入出 力 ルー チン の 桃 要 と ワー クエ リア 


ディ スク 入出 力 ル ー チ ナン は , FAT と ディ レク トリ スロ ッ ト か ら フ ァイル の 位 
置 を 割り 出し て いま す . この 際 , クラ スタ 番号 (0 一 1 5 1) と クラ スタ 内 の セ 
クタ 番号 (0 一 7) と いう 語 埋 的 な 番号 か ら , トラ ッ ク 番 号 と セク タ 番 号 に 変換 

し て いま す . た だ し , 変換 の し や すさ か ら , セク タ 番 号 の 値 は ー 1 され て いま す 
(セク タ 番 号 は 0 一 3 1 の 値 を と り ま す ) . な お , 名 称 や その 内 容 に つい て は は, 
4 一 1 切 文法 書 の 2. 1 0. 3 を 御 参照 下さ い . また , 本 秀 で は 下図 に 示し た 
だ た だめ, ワー クエ リア は 省略 し まし た. 


図 4・5・1 ディ スク 入出 力 ル ー チ ン の ワー クエ リア 


アド レス 名 称 お よ が び 機 能 

71D6 | ドラ イブ テー ブル の 先頭 アド レス : ドライブ テ ー ブ ル が 複数 ある と き は この 値 か ら 計算 さ | 

71D7 | れ ま す (1 一 4 一 4(2) お よび 表 1・4・1ー 2 照 ). | 

71D8 | シス テム ラン ダム バッ フィ の 先頭 アド レス :DSKI$,、DSKOS$ で 使用 され る ファ イ | 

71D9 " ル バ ッ ファ で す (1 一 4ー4(3) お よび 表 1 ・4・1 一 2 参 有 子 ), ーー 明 

>1DA | フ テイ ル バ ッ プア せ せ 0 一 計 半 15 の 先頭 アド レス : 2 バイ ト ず つ 入 り ま す 。 : た だ し . 十 | 
源 投入 時 に 入力 され た ファ イル バッ ファ 数 より 大 きい 番号 の も の は $0000 に な っ て い 


7 1F9 ます (1 一 4 一 4(3) お よび 家 1 | 1 一 ?2 参照 ). 
7 1FA | ドラ イブ 数 1 (0 一 3) :FBASIC で は ドラ イブ 番号 が 0 か ら 始 まる る の で 1 フタ | 
| な い 値 に な っ て いま す . 


71FB | ファ イル バッ ファ 数 (0 一 15) : フ ァイル バッ ファ が 共和 0 か ら 始 まる の で 1 つ 少 な い | | 

| | 條 に な っ て いま す , | 

| 71FC | セクタ 入出 力 の 先頭 アド レス : モク タ と 入出 力 を 行う 際 の デー タ の 先頭 アド レス が 入っ て 
』 1F D | いま す . 間 FPP ー 
71FE | ドラ イブ 番号 : 入 出力 の 際 の ドラ イブ 番 サ を 入れ て お きま す . 還 請 較 
71FF | 人 7 4CFE,. S7 4E6 を 呼び 出す 際 に 。 BIOS に 処理 きせ る 入出 力 の 機 | 

能 を 次 の よう に 与え を ます. $00 一 RESTORE、$0 1 一 何 も 移 理 を 行わ な い $0 
2-DREAD.、$03 一 DWRITE | 
7200 | セクタ 番 号 ー 1 入出 力 の 際 の 実際 の モク タ 番 号 よ り 1 っ 少な い 値 を 入れ て お きま す 。 | 
7201 の AP 入出 力 の 際 に BIOS が : える エラ ー 番 号 が 入 り ます . 較 
7202 | トラ ッ ク 番 号 : 出力 の 際 の トラ ッ ク 番 を 入れ て お きま す 。 ーー 
7203 | BIOS を 呼び 出す た め の RCB 還 還 還 還 還 還 胃 
1 | 

720A 

720B 」 的 の ファ イル 名 (ディ レク トリ スロ ッ ト ) の ある ト ラッ ク 1 内 の モク タ 番 号 ー-1 

| に 日 的 の ファ イル の ア ィ レク トリ スロ ッ ト の ある セク タ を 汎用 ア ィ スク バッ ファ に 読み 込ん | | 

| 720D | だ と き の ,、 ディ レク トリ スロ ッ ト の バッ プ ァ 内 の 先頭 アド レス | 

| EC 本 8 間 旨 旨 旨 8 

| 720F 。 | 日 的 の ファ イル の ラン ダム アク セス フラ グー _ 還 還 | 

| 7210 | 空き ア ィ レク トリ スロ ッ ト の ある トラ ッ ク 1 内 の モク タ 番 サー トー 
7211 | 鶴 き ア ィ レク トリ スロ ッ ト の ある モク タ を 汎用 ア ィ スク バッ フィ に 読み 込ん だ と き の , チ | 
2212 | レク トリ スロ ッ ト の バッ プ テ 内 の 先頭 ア ドレ ス | 
ーー コー ニ ーー 間 


| 現在 アク モス 中 の ファ イル バッ ファ ヶ の 番号 


=3 | = 
1 計 = 
| 生 g 
| LDL 
ーー 
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4 一 5 一 2 デ 
ディ スク オー プン (OPEN) ルー チン 


| アド レス | $7713-$78 3A 


ディ スク に 割り 当て られ て いる ファ イル を オー プン す 
ー フ プン する 。 


| レジ スタ | A, B, X, U 
| 入力 情報 | ンジ 
B レ ジス タ ニニ ファ イル の 入出 力 モ ー ド の モー ド 文 
四 肖 5 II 


機 


復帰 情報 


IWORK 


終了 
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示 
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(0 
( 0 
(0 
(0 
(0 
( 0 
(0 


の [キョ pm 

リー R” ) の アス キー コー ド 
ファ イル 番号 

2DB) ニニ ファ イル タイ プ 

2 DC) ニア スキ ー フ ラグ 

2 DD) ニニ ファ イル 名 の 長 さ 

2 DE< ン 

ー 人 

5 ) ニ デ バイ ス 番 号 ( 竹 $ 8 0) 「 
2DA) ニニ ファ イル の モー ド 


その ファ イル 番号 
号 の SFD (シス テム デ 
Ii テム ファ イル ディ スク リプ タ ) 


や 7/ 
や / 
や 7/ 
7 
や 7/ 
や / 
や 7/ 


や / 
7 
$ 7 
や 7 
$ 7 
$ 7 
$ 7 


4 AB-*> 
B っ ファ イル バッ ファ の 先頭 アド レス の 頭 出し 

BD-ー ド ラ 上 。 
ドラ イブ テー ブル の 先頭 アド レス の 頭 出 
下 衝 本 Li ] 

[ ) ー* 
時 1 
“ C っ ディ レク トリ 探索 ルー チン 

8 ビー ra 
電 呈 ディ スク に ある か どう か の チェ ッ ク 

ーー* ア ヾ の 
イル が すでに オー プン され て いる か どう 3 
リノ うか の チェ 
6 BF~1D 確 認 [ 
と FAT の ドラ イプ ブ テ 

8 3 巳 - fi 
Bー フ ァイル バッ ファ の 初期 化 ル ー チ ン 則 和 

5 F ッ っ ー デ ィ レ クト リス ロッ ト 。 FAT の 記入 
9 5 9 一 次 セク タ 設 定 ル ー チ ン 
9 AA っ っ! クラスタ 

セク ター トラ > 

ー ッ ク 。 セク タ 」 変 換 ル ー チ ・ 

3 7 … 次 セク タ 読 み 込 み ル ー チ ン 人 
A っ ポイ ・ 

8 5 っ ボイン タ を E ビ OF まで 進め る 


エラ ー の ある と き は の 

エラー コー ド を B ロ レジ 

重 ミン シス 記 P。 
理 ル ー チ ン (も 8 DD1) に ジャ ンプ する 生還 


空き FBUF を 探し . あれ ば 
その F BUF を 割り 当て る 


Ro 7: 
ライ フ テ ー フ ル に 読み 込む 


ディ スク オー プン ルー チン の 動作 


S7713 


YES 


アロ グラ ムフフ ァ fb 
プア イル バッ プア ァ 


せ モ 0 


と き 


FAT を トド 


ディ レク トリ を 探索 し , 同名 


ファ イル モー ド =S 1 0 の 


| ファ イル タイ プ と ア 
スキ ー フ ラグ の 設定 


ファ イル の 先頭 セク タ 
を F BUF に 読み 込む 


/ FAT の 記入 


|F BUF の 初期 化 7838B 
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(人 M の エラ ー に つい て は 。 サブ 
計上 
そこ か ら エ ラー 処理 ルー チン 


ルー チン [ 入 KK で * 2 生 す 
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ル モ ー ト =S OU 


| 古い ファ イル の あっ た デ 
| イレ クト リ の 位置 を 記 境 


ディ レク トリ の 記入 , 


| ディ レク トリ の 記入 
FAT の 記入 


F BUF の 初期 設定 |]|7 「 
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IF CB に 最終 クラ スタ 、 ク 
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う ーー ブル の 7) 数 を 十 す る ① い …]Too Many Open Disk Files 
結語 ②…"Bad File Mode" 
| SFD の 設定 。 5 ・ 
(③…「File Already Exists 
| ゅ アア ア / ア D 


| 空き ド F BUEFE が な い 


SM 


169 


この ルー チン の 動作 を 図 4・5・2 に 基づい て 説明 し ます . 

@ ブ プロ グフ ラム ファ イル 【[(0 0 BEF)= テ $ 1 1] な ら FBUF (ファ イル バッ ファ ) 
せ # せ 0 を 割り 当て ます が , デー タフ ァイル の 場合 は 空き F BUF を 探し (FB 
UE 番号 の 大 きい も の か ら 順 に ), 未 使 用 の F BUF が あれ ば その FBUF に 
りり 当 て ます . 

@」D セ クタ の チェ ッ ク を し , まだ 読み 込ん を で な けれ ば , ディ スク か ら F AT を 
ドラ イブ テー ブル に 読み 込み ます . 

@ ディレク トリ を 探索 し , 入力 情報 で 号 を えら れ た ファ イル 名 と 同じ 名 を も つ フ ァ 
イル が ある か 調査 し し あれ ば (720B--720F) を 設定 し ます . 

$ この 後 は 各 モ ー ド に 分 か れ , その モー ド の 動作 を 行い ます . 注意 すべ きこ と は , 
“1”" と A% の モー ド で 。 ファ イル の 存在 チェ ッ ク と いう の は ディ レク トリ 
探索 が 既に 実行 され て いる の で , (7 2 0 B) が 設定 し て ある か どう か を 判別 す 
る だ け で 再度 ディ レク トリ 探索 を し て いる の で は な いと いう こと と , ファ イル 
オー プン チェ ッ ク を 呼び 出す 際 に , “人 [? の 場合 は 同じ モー ド で あれ ば 複数 個 
の ファ イル 番号 で , 同一 の ファ イル を 開く こと が 許さ れる の に 対し て , 4" 
の 場合 に は それ が 許可 され な いと いう こと で す . 

@ 合 モー ド の 処理 が 終わ っ た 後 は , 共通 し て ドラ イブ テー ブル の アク セス 数 (4 
ー1 一 3 節 参 照 ) を 十 1 し て . フ ァイル モー ド と FE BUF の 番号 か ら . そ の ファ 
イル 番号 の 示す SFD を 設定 し て いま す . 


4 一 5 りー3 ディ スク クロ ー ズ (CLOSE) ルー チン 


| アド レス | $78BE-$7913 
機能 | ディ スク に 割り 当て られ て いる ファ イル を クロ ー ズ する . 
AB X,U 
A レ ジス ター その ファ イル の SFD 
B レ ジス タニ ファ イル 番号 
IIWORK | (DO0BF) @ 。 (02B4:02B5) ⑥ 
その 他 は 省略 ( 図 4・5・1) 
|S U B| $7 4 AB つつ ファ イル バッ ファ の 頭 出し 
ゃ 7 4BD リ ーー ドラ イブ テー ブル の 頭 出し 
$ 7 4 C と ビー セク タ 入 出力 ルー チン 
ゃ 75FBーFAT 記 入 ル ー チ ン 


ーー 
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7 9 14 つ SFD か ら ド ライ プ 番 号 を 割り 出す 
7 9AAー ク ラス タ , セク ター トラ ッ ク , セク タ 変 換 ル ー チ ン 


解 。 説 | 次 の よう な 手順 で ファ イル を クロ ー ズ し て いき ます . 

@$ ド フイ ブフ テー ブル の 内 容 が FAT に 記入 きれ て いな い 場 合 , 記入 を 行い ます . 
@ 出 力 モ ー ド で , まだ ディ スク に 未 転 送 の デー タ が バッ ファ に 残さ れ て いる 場 
台 , それ を 出力 し ます . この と き , デー タ 終 了 を 示す 識別 子 と し て $ 1 A が 出 
カカ され , そこ か ら バ パ バッファ の 終わ り ま で を クリ ア し て 出力 きれ ます (た だ し 
パ バッ ファ の 終わ り で デー タ が 終わ っ て いる と き は 出力 する の み で , これ ら の 処 
理 は 行い ませ ん ) . 

$ ド ライ ブ テ ー ブ ル の ファ イル の アク セス 数 を 一 1 し , 今 ま で 使用 し て いた FB 
UF の 先頭 に $ 0 0 を 代入 し て 使用 され な く な っ だ た こと を 示し ます , そし て , 
その ファ イル の SFD を $ 0 0 に し ます . 


4 一 5 一 4 入出 力 ル ー チ ン 
(1) ディ スク 1 バイ ト 出 力 ル ー チ ン 


| アド レス | $7924,$7969-$798E 
F BUF に 1 バイト の デー タ を 出力 する . 
| レジ スタ | A, B, X, Y, U 
| 入力 情報 | (SS 十 7 ) ニ リ タ ー ン 時 の A, 日 , X, Y, り レジ スタ の 値 
(S 十 8 :S 十 9) = ニ リタ ー ン アド レス 
A レ ジス ター 出力 デー タ (1 バイト ) 
B レ ジス ター その ファ イル の SF D の 内 容 
SUB $74BDー ド ライ ブ テ ー ブ ル の 頭 出し 
ゃ 7 4 CE ヒー セク タ 入 出力 ルー チン 
$7 8A9 一 FAT 記入 ルー チン 
$ 7 9 9 0 一 空き クラ スタ 検索 ・ 設 定 ル ー チ ン 
も 79AA つ クラ スタ , セク タゴ コ トラック, セク タ 」 変 換 ル ー チ ン 


解 説 | 次 の よう な 処理 を 行い ます . 
@P レ ジス タ の 値 か ら , その ファ イル が 使用 中 の ファ イル バッ ファ を 選択 し ます . 
@ 出 力 コ ー ド が $0D (CR) の 場合 (FEBUE 十 6 : デー タ の レコ ー ド 長 ) を 
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0 に し ます . また , 出力 コー ド が $ 2 0 以上 の 場合 は ,(FBUF 十 6) を +1 
し て レコ ー ド 長 が 博 え だ こと を 示し まう 、 

@ る (FBUFE 二 13:FBUF 士 14) の 値 を 1 し て , それ が $0100 以 下 ト 
な ら ば , IO バッ ファ の その ポイ ンタ の 示す 筒 所 に A レ ジス タ の 内 容 を 格納 
し ます . $ 0 1 0 0 に な っ た 場合 は , 現在 アク セス 中 の セク タ に 1 ノバ ッ プ フ 
の 内 容 を 紹 丸 し ます . 

@S (0 1 0 0 で ある 場合 は この 後 $ 7 9 6 9 以降 で 次 の セク タ を アク セス する 
だ た め の FCB の 設定 を 行い ます . 

@6 (FBUFE 十 1 3 :FBUF 二 1 4) の ポイ ンタ の 値 を 0 に し ます . 

@ 次 の セク タ を (FBUF 十 4) に 設定 し ます 〔 た だ た だし, クラ スタ 内 に セク タ が 
Ph 
空き クラ スタ の 先頭 セク タ に 割り 当て る よう に (FBUF 十 3) を 設定 し ます 〕、. 

@EFATT に 記入 し ます . 


$79F9-ー$7A35 

FBUF か ら 1 バ イト の デー タ を 入力 する . 

A,。 B, X, Y, U 

(SCS 十 6 ) ニ リ タ ー ン 時 の B, X, Y, U り レジ スタ の 値 
(S 十 7 :S 十 8 ) = リタ ー ン アド レス 

B レ ジス ター その ファ イル の SF D の 内 容 

A レ ジス タニ 入力 デー タ 

(0 0 C0) ニ デ ー タ 終了 時 に $FF に な る . 

7A 3 7 … 次 セク タ 読 み 込 み ル ー チ ン 


| 長 | 場合 に よっ て 動作 が 異な り ま す . 

@ レコ ー ド が 途中 で 切れ て いる 場合 ((FBUF 二 1 1) ニ $ ド FE は , 蓄え て お 
ぃ い だ た 入力 デー タ (FBUF 十 1 2) の 内 容 を A レ ジス タ に 与え ます . 

@ 入力 する デー タ が な い 場 合 〔((FBUF 十 13:EBUFE 十 14)=0〕 は , 
0 0UOUU) に WEENIG 人 RAL て U タ クー ン し ます 、 

@ 入力 デー タ が ある 場合 は , ポイ ンタ (FBUF 二 13:FBUF 二 14) の 内 
容 を 一 1 し , デー タ ボ ポイ ンタ (FBUF 十 5) の 指す デー タ の 内 容 を A レ ジス 
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タ に 代入 し て ,。 デー タ ボ ポイ ンタ を 十 1 し ます .。 この 際 。 ID バッ ファ に デー 
ググ の 020 く 20 の 0 と 。 デック ホ イン ク (EBMUENL90) を クリ リ / し 。 人 太 セ クノ ク ク グ ぞ な 』 
グ O バ ッ フ ァ に 読み 込み ます 【 還 時 に 。(FBUF 十 13 :FBUF 二 1 4) が 
再 設 定 さ れ ま す . た だ し , エラ ー や ファ イル の 終了 時 な ど は 再 設 定 さ れ ま せん 〕. 


(3) 次 セク タ 読 み 込み ルー チン 


| アド レス | $7A37,$7A86C$7AA7 
機能 | デー タ を 入力 する た め に , | ププ O バ ッ フ ァ に デー タ が な く な っ た 際 
に 療 の セク タ か ら , デー タ を 1/O バ ッ フ ァ に 読み 込む . 
| レジ スタ | A, B, X, Y 
| 入力 情報 | X レ ジス ター ニーFBUF の 先頭 アド レス 
C フ ラグ ニー ファ イル の 最後 の クラ スタ の 最終 セク タ で 次 の セク タ 
を 読み 込 も うと し た と き セ ッ ト さ れる . 
SU り UB| $7 4BD リ ロー ドラ イフ テー ブル の 頭 出し ルー チン 
$ 7 4 CE ヒー セク タ 入 出力 ルー チン 
も 7 9AAー「 ク ラス タ , セク タナ トラ ッ ク , セク タ 」 変 換 ル シー チン 
$ 7 A 9 2 一 ポイ ンタ の 初期 設定 処理 
$ も 7AA0D 一 ボイン タ の デ ク リ メン ト (一 1) 処理 
ファ イル の 最終 クラ スタ の セク タ 数 が 8 以上 に な っ て いた 場合 
(0 一 7 が 普通 ) は , “Bad File Structure” エラ ー 


解説 | アク セス 中 の クラ スタ 内 セク タタ 番号 (FBUF 十 4) を 十 1 し て , 
その 番号 の セク タ を 読み 込み ます が , その 番号 が 8 に な っ て い だ た と き は , 現 ク ラ 
スタ の 継続 クラ スタ の 先頭 セク タ か ら デ ー タ を 読み 込み ます . この 際 。 その ク 
ラス タ が 継続 クラ スタ を 持た な い 場 合 ,、 あるいは ファ イル が 使用 し て いる 最終 セ 
ググ で この ルー ナン る の び の 全 し た だ ため 合 な る は ほ は 。 し フラ ク を る セッ ト し で て 全 も る しない 
で 有 UM ダマ ーー シン し ます 

WC の セグ ダグ を 謗 みん / らき さば) ボ ポイ ング (RBDUE 直 AM PBDUM9 
4) を $0 1 0 0 に 再 設定 し ます . し か し , 読み 込ん を だ セク タ が 最終 セク タ の 場 
合 は , その ボイン タ を $ 1 A (デー タ 終 了 の 識別 子 ) の 前 まで の 値 に 設定 し な け 
れん ば な り ま せん . これ を 行う の が $7A8 6 以降 で す . 
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(4) セク タ 入 出力 ルー チン 


$74CE^ー$74E5 (も 74E56 一 $ も 755C) 
BIOS を 用 いて セク タ の 入出 力 , シ ー ク トラ ッ ク 0 の 処理 を 行う . 
A, 日 , X  (B, X, Y, U は 保存 ) 
(71FC: 71FD) ニセ クタ の 入出 力 の 先頭 アド レス 
(7 1FE) ニ ド ラ イブ 番号 (0 一 3) 
(7 1FF) = 入 出力 機能 

$00……RESTORE $ 0 1 …… 無 動作 

$ 0 2 …… DREAD $ 0 3 …… DWRITE 
( 7 2 0 0 ) ニセ クタ 番号 一 1 (DC3 1 ) 
(7 2 0 2 ) ニトラ ッ ク 番 号 (0 一 3 9) 
(7 201) = ニ BIOS の 設定 する エラ ー 番 号 
ふ ゃ 7 4E5 一 セク タ 入 出力 実行 ルー チン 
10OS の 設定 する エラ ー に より “Drive Not Ready ” エラ ー, 
FDisk Write Protected " エラ ー, “Drive |/O Error” を 発生 させ 
る ($8DD1) . 


| アド レス 


] この ルー チン は , DISK BASIC の 根 幸 と な る 入出 力 ル ー チ 
ン で す . この ルー チン の 下位 ルー チン $ 7 4E6 は , (7 1FF) の 値 を 参考 
に , BIOS の RESTORE, DREAD, DWR ITE を 呼び 出す た め の 処 
理 を する ルー チン を (755D-756 4) の ジャ ンプ テー ブル に 従っ て コー ル 
し ます . 各々 の ルー チン は , (7 203-720A) に RCB を 設定 し て BIO 
S を 呼び 出し ます . 


4 一 5 一 5 その他 の 主 な ディ スク 関係 ルー チン の 概要 


(1) FAT 初期 化 ル ー チ ン 


アド レス | $7422$7444 
レジ スタ | A, B, U (U は 保存 され る が , 入力 情報 と し て 使用 ) 


| 解 説 (7 1F E ) で 指定 する ドラ イブ の FAT の 初期 化 (シス テム 領域 
以外 の も の は $FF で 埋め る ) を 行い ます . 入力 情報 と し て 他 に (71FC:7 
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1FD) に U レ ジス タ の 値 二 1 の アド レス を 与え る こと と ,。 (7202) に $0 
1 を 代入 し て お く こ と が 必要 で 。 こ の ルー チン 終了 直後 に ,。 $ 7 4 CE を 呼び 出 
すこ と に よっ て 初期 化 さ れ た 内 容 が FAT に 書き 込ま れる こと に な り ま す . 


(2) ファ イル バッ ファ (FBUF) の 頭 出 し ルー チン 


| アド レス | $74AB, $74B1 一 $74BC 
| レジ スタ | B, X  (B は 保存 され る が , 入力 情報 と し て 使用 ) 


解説 | $ 74AB エ ント リ の 際 は (7 3 13) に , $7 4B1 エ ント リ の 


際 は B レ ジス タ に , それ ぞ れ FBUF の 番号 ($00-$0F) を 入力 情報 と し 
て 与え る と ,。 (7 1DAー71F9) の ワー クエ リア か ら , その F BUF の 先頭 
アド レス を メレ ジス タ に 代入 し て きま す . この と き , その FBUF が 未 使 用 な ら 
ば Z フ ラグ を セッ ト し て 返し て きま す . 


(3) ドラ イブ テー ブル (DRVTBL) の 頭 出し ルー チン 


| アド レス | $74BD$74CD 

| レジ スタ | A, B, X  (A, B は 保存 ) 

解 説 (7 1FE) の ドラ イブ 番号 お よび ,(71D6:71D7) の 先頭 
だ R レ ス が から 、 そ の DRV TBL の 先 下 アド レス と メレ ジス タメ に 代 人 人 し 。 ま た, 
FAT を まだ 読み 込ん で いな い の な ら , 2Z ク フラ グ を セッ ト し て 返し て きま す . 


(4) FAT 記入 ルー チン 


| アド レス | $75FBー$762B 

A。 B, X,U 

解 説 (7 1FE) で 指定 する ドラ イブ の FAT に DRVT B 革 の 内 容 を 
訪 和 人 し ます . この 際 , 江 用 ディ スク バッ ファ (7213-7312) を 使用 し て 
いま す . また , 記入 後 の DRVT BL の 先頭 アド レス 1 番地 の 内 容 を クリ ア し 
て 記入 済 で ある こと を 示し ます . 
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(5) ディ レク トリ 探索 ルー チン 


| アド レス | $762C 一 $7568D 
| レジ スタ | A, B, X, Y, U 


解説 | (7 1FE) で 指定 する ドラ イブ の ディ レク トリ の 探索 を 行い , 
(0 2DE~-02E5) で 指定 し た ファ イル 名 の 探索 お よ び フ ァイル 名 を 特に 
指定 し な い 場 合 は , 空き ディ レク トリ スロ ッ ト の 位置 の 探索 を し ます ( 画 者 は 列 
々 に で は な く 同 時 に 行わ れ ま す . これ は , 新しい ファ イル を 作る 場合 な と に 両方 
の 情報 が 必要 と な っ て くる た めで す ). この 探索 に よっ て 次 の ワー クエ リア を 設定 
9 

@ (7 20B) ー 指 定 し た ファ イル 名 が ある セク クタ 番号 一 1 (3ー3 

1 ), ファ イル 名 が な い 場 合 は 0 に な り ま す . 
@$ (7 20C 一 720F) ニニ ファ イル 名 が ある 場合 は 図 4・5・1 の 内 容 が 入り 


ます 。 
@ (7 2 ] 0) 写 き ディ レク トリ スロ ッ ト が ある セク タタ 番号 一 1 
(3 一 3 1),。 ス ロッ ト が な い 場 合 は 0 に な り ま す . 
@ (7 211 :7212) ニス ロッ ト が ある 場合 は 図 4・5・1 の 内 容 が 入り ま 
す . 


(6) ファ イル の オー プン チェ ッッ クルー チン 


| アド レス | $7698-$76BE 
A, B, X  (A は 保存 され る が , 入力 情報 と し て 使用 ) 


し 7 1 FE) の 9 ドラ イプ の 、 同じ ラテ ァイル を チノ クノ 珍 和久 し て いる 
他 の ファ イル バッ ファ の 有無 を 調べ ます . 入力 情報 と し て A レ ジス タ に アク セス 
し た い フ ァイル の ファ イル モー ド を 与え ます . 同じ モー ば ド なら エラ ー は 起こ り ま 
せん (オー プン ルー チン の “AA”" の モー ド で この ルー チン を 呼ん で いる と き は は , 
A レ ジス タ に $FF を 代入 し て いる の で エラ ー に な り ま す ) . この ルー チン は は, 
ディ レク トリ 探索 ルー チン を あら か じ め 呼 び 出 し て か ら 使 用 し ます . 


た ーー 
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(7) ID 確認 と FAT 読み 込み ルー チン 


| アド レス | $76BF, $76D2-$7712 
ん か 


$ 7 6 BF エ ント リ の 際 は デバ イス 番号 (0 2E6) の が ボ す ドラ イ 
ブ プ か ら , $ 7 6D2 エ ント リ の 際 は (7 1 FE) の 示す ドラ イブ か ら , それ ぞ れ 
FAT を DRVTBL に 読み 込み ます . その 際 に TI D 確 認 を 行い ます が , その ド 
ライ ブ の DRVTBL を アク セス し て いる ファ イル が ある 場合 は 読み 込み ませ ん . 
な お , この ルー チン も ゃ も 江 用 ディ スク バッ ファ を 利用 し て いま す . 


(8) ファ イル バッ ファ の 初期 化 ル ー チ ン 


| アド レス | $783B-$785E 
| レジ スタ | A, 日 , X, U 


解説 | (7 3 13) の 指す FBUF を 初期 化し ます . F BUF の 内 容 を す 
べ て クリ ア し た 人 後 。 FCB の 一 部 は 次 の よう に 設定 され ます . 
@ (FBUF 十 1) [ドラ イブ 番号 〕」 = (7 1FE) 
(FBUF 十 2) [ファ イル 先頭 クラ スタ 番号 〕) =(7 2 0E) 
(FBUF 二 7 :FBUF 十 8) [1 ププ 0 バ ッ フ ァ 長 〕 =($010 0) 
(FBUF 二 9:FBUF 二 10) [IO バッ ファ の 先頭 アド レス ) 

ーF ド BUF の 先頭 アド レス 寺 15 


(9) ディ レク トリ スロ ッ ト 記 入 と FAT 記入 ルー チン 


| アド レス | $785F,$78A9-$78B9 
[レジ ネタ | A, B, X,U 


解 。 説 | この ルー チン も ディ レク トリ 探索 ルー チン を 事前 に 実行 する 必要 が 
あぁ あり, (7210) が 示す セク タ を 江 用 ディ スク バッ ファ に 入れ , (7 211・ 
7212) が 示す バッ ファ 内 の ディ レク トリ スロ ッ ト に 次 の も の を 設定 し ます . 
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2 有 了 有 有 有 Z 有 有 uRRERERERE5E5m ミニ ーー トト ニュ ニー ニニ ニレ ーー ーー 


@ フ ァイル 名 (0 2DE-ー02E5) 

@ フ ァイル タイ プ (0 2DB) と アス キー フラ グ (0 2 DC) 
@S57990 を 呼び 出し , その 復帰 情報 で 返さ れる クラ スタ 番号 

@$ フ ァイル モー ド が ラン ダム 〔((02DA)=$40] な ら ラ ンダ ム ア ク セス フラ 
グ ( 王 $ ド FE) 

以上 の も の を 設定 し た 後 , バッ ファ の 内 容 を 再び セク タ へ 書き 込み ます . $ 7 
8A9 か ら は , $7990 で 変更 し た DRVTBL 上 の 内 容 を $75FB に よっ て 
FAT に 記入 し て いま す . $ 7 8A9 か ら 呼 び 出 す 場 合 は , CC を 除く 全て の レ 
ジス タ が 保存 され ます . な お , この ルー チン を 呼び 出す 際 は (7 1FE) に ドラ 
イブ 番号, (7 202) に $0 1( ト ラッ ク 1) を 設定 し て おく 〈 必 要 が あり ます . 
※ デ ィ レ クト リス ロッ ト 内 バイ ト 位 置 に 関し て は , 廊 法 書 2.1 0.3 を 御 参 照 下 
さい . 


(10) 空き クラ スタ 検索 ・ 設 定 ル ー チ ン 


も ゃ 7990 一 79A9 
A, 日 , X 


解 (7 1 FE) の 示す ドラ イブ の DRVTBL を 検索 し , 未 使用 クラ 
スタ ( 三 $FF) を 発見 し た 場合 は 。 そこ に $C 0 を 書き 込み ます ($785F 
で は この ルー チン を 呼び 出し た 後 , ラン ダム モー ド の 場合 は ,. そこ に $FD を 書 
き 込 み ま す ) . この ルー チン は 復帰 情報 と し て , A レ ジス タ に クラ スタ 番号 と , 
人 レジ スタ に 上 記 DRVTB 革 内 の 恋 当 クラ スタ を 指す アド レス が 返さ れ ま す . 


(11) クラ スタ 番号 , クラ スタ 内 セク クタ 番号 っ トラ ッ ク 番 
号 , セク タク 番号 変 換 ル ー チ ン 


$ も 79AA…$79C1 
A, 日 , X 


| アド レス 


| (FBUEF 二 3) の クラ スタ 番 号 と (FBUEFE 十 4) の セク タ 番 
らら 。 ドラ ウッ ル グ 衝 な を 【T202) 。 モク タク 独 全 一 ト 1 を (7 200) に 反し ま 
す . 入力 情報 と し て , 双 レ ジス タ に FEBUF の 先頭 アド レス を 入れ て お きま す . 
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4 一 5 一 6 サン プル ( ディ スク エディ タ ) 


ディ スク を セク タ 単 位 で , 編集 する ブ プログ ラム で す . デー タバ ッ フ ァ と し て $ 

4000 一 $4100 の 訪 域 を 使用 し て いま す . な お , カー ソル 移動 キー に よっ 
て 任意 の 場所 に カー ソル を 移動 する こと が で きま す . 実行 例 は 。 4 一 3 一 5 の サ 
ンプ ブル の 実行 例 と まとめ て あり ます . 
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4 一 6 コン ソー ル 入 出力 ・ プ ブリ ンタ 出力 ルー チン 


4 一 6 一 1 BIOS 関 連 ル ー チ ン 


コン ソー ル の 入出 力 で は , BIOS に 対す る RCB や サブ シス テム へ の コマ ン 
ド お よび パラメータ を 設定 する ルー チン が , その 具体 的 な 実行 ルー ナン と な っ て 
いま す . 従っ て , サブ シス テム に 対し て 機能 する SUBOUT, SUBIN が 疾 
化 に 用 いら れ て いま す . これ ら を 呼び 出す た め の RCB は (05A0-05A7/) 
に 設定 され ます (ROM 内 に 持っ て いる こと も あり ます ) . まだ た , SUBOUT 
の と き の デ ー タ バッ ファ は (0100 一 017F) に , SUBIN の と き の デ ー 
タバ ベッ ファ は (01B5 一 01B9) に 設定 され ます . 


(1) 汎用 RCB 設 定 ル ー チ ン 


$D9F4 一 $DA20 
入出 力 の RCB を ワー クエ リア (0 5A0 一 05A7) に 設定 する . 
A, 日 , X, U 

り レ ジス タテ RCB の 書か れ て いる 先頭 アド レス 

(05A0D 一 05A7) = 汎用 RCB 設 置 エ リア ⑩ 


説 | り レ ジス タ の 値 に より , 下 表 の よう な RCB が 設定 され ます . 


表 4・6・1 設定 され る RCB の 内 容 


RONO 。 RCBSTA RCBDBA RCBLNH|RCBBMH 
154254315A44545 5 A6:5A 7 


11S$12 INPUT 
SDA09|S13 INPUTC 
$11 SUBIN 


SDA11 


SDA19[$10 SUBOUT 


203 


(2) SUBOUT PUT 設 定 ル ー チ ン 


$DA21-$DA2F 


機 能 | BIOS に 対し て は SUBOUT を 要求 する RCB を , サブ プシ ステ 
ム に 対し て は PUT 要 求 [シス テム 仕様 2. 2. 1 1(3)] の RCB を 設定 する . 
| レジ スタ | A, B, X, U (全て 保存 ) 

IWORK | (0101:0102) 

|「S UB| $D9F4 一 汎用 RCB 設 定 ル ー チ ン 

U り レジ スタ に $ DA 1 9 を 入れ て 汎用 RC B 設 定 ル ー チ ン を 呼び , 
SUBOUT の RCB を 設定 し た 後 , (0101:0102) に $O 0 0 3 を 入 
れ , デー タ の 継続 の な い PU 丁 妥 求 の 設定 を し ます . 


(3) SUBOUT PUT 初 期 設 定 ル ー チ ン 


$DA30-$DA35 


$DA 2 1 の 機能 に 加え て デー タバ イト 数 を 0 に 初期 設定 する . 
A, B, X, U (全て 保存 ) 
(0103) ⑲ 


|「S UB| $SDA21 つ SUBOUT PUT 設 定 ル ー チ ン 


(4) SUBOUT PUT 後 続 設 定 ル ー チ ン 


$DA36-$DA65 1 

機能 | PUT の 出力 文字 列 を 設定 し て いく 〈. 

A, 日 , X (全て 保存 ) 

A レ ジス タニ = 出力 文字 コー ド , また は オー ダコ ー ド 

|IWORK | (0101:0102) 。 (0 1 0 3) @ ン ⑳⑩ 
(0104 一 ) ⑩ 。 (05A5) ⑩ 


「S UB| $SDA64 一 BIOS 実 行 ル ー チ ン 


解 説 (0 1 0 4 -) PUT の 文字 列 を 薔 え を て いき ます が , 文字 列 が 1 2 
4 バイ ト を 越え た と き は 。 継続 フラ グ を 立て て 出力 し (5DA64) , CONT 
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INUE コ マン ド の 設定 を し た 後に , 再び (0 1 0 4 ) 以降 に 准 え て いき ます . 
文字 列 を 蓄え て いく 《 際 に , デー タバ イト 数 (0 1 0 3), お よび RCB 中 の デー 


タバ イト 数 (0 5A5) を 十 1 し て いき ます . 
(5) BIOS 実 行 ル ー チ ン 


機 能 | 設定 され た RCB, コマ ンド を BIOS に 実行 させ る . 
| レジ スタ | A, X (X は 保存 ) 
$DA35 つ SUBOUT PUT 後 続 設定 ルー チン 


00DE つ BIOS ジ ャ ンプ ルー チン 


| アド レス | $DA62, $DAB4 一 $DA6C 
[機能 


解 説 | $DA6 2 が エン トリ の 場合 は $DA36 を 呼び 出し て いる の 

で , A レ ジス タ に 文字 コー ド 等 を 入れ て お く 〈 く 必要 が あり ます . また だ た, $DA64 
か ら は ,。 (05A0-05A7) の RCB の 内 容 を BIOS に 実行 させ ます (に こ 
の と き A レ ジス タ は 使用 し ませ ん ). 

(3 ) (5) の ルー チン の 具体 的 な 使用 法 は , まず SDA30 を 呼ん で KC 
B な ど を 設定 し た 後 。 A レ ジス タ に 文字 コー ド な ど を 入れ て $DA36 を 呼び 出 
す と いう 動作 を 繰り 返し , 最後 に 8 DA6 4, ある い は $DA6 2 を 呼ん で BI_ 
O S に 実行 きせ る と いう 形 が 一 般 的 な よう で す . 


4 一 6 一 2 コン ゾ ソール 1 バイ ト 入 出力 ルー ナン 
(1) スク リー ン 1 バイ ト 出 力 ル ー チ ン 


$D9D9-$D9DD 


可 能 | サブ プシ ステ ム の PUT を 用 いて スク リー ン に 1 バイト 出 力 する . 

レジ スタ | A 

入力 情報 | A レ ジス タニ 出力 する 文字 コー ド 

「S U B $SDA30 つ SUBOUT PUT 初 期 設 定 ル ー チ ン 
$DA62 つ BIOS 実 行 ル ー チ ン 
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(2) キー ボー ド 1 バイト 入力 ルー チン 


| アド レス | $DB54-$DB58 

機 キー 入力 が ある まで 待ち , キー 入力 が あっ た と き は , キー ボー ド か 
ら 1 バイ ト 入 力 す る . ※ キ ー 入 力 待ち ルー チン と し て も 使用 可能 . 

A, B, X 

| 復帰 情報 | A レ ジス ター 入力 キー コー ド 

$DB6Dー キ ー 入 カカ ルー チン 


(3) キー 入力 ルー チン 


本 


Z フ ラグ ニキ ー 入 力 が な い 場 合 に セッ ト さ れる 
|IWORK | (05A0D 一 05A5) =BI10S へ の RCB ⑩ 
(01B5:01B6) ニニ データ バッ ファ (5 


|「S UB| $UUDE つ BIOS ジ ャ ンプ ルー チン 


(4) フィ ー ル ド 設 定 ル ー チ ン 


$D92F$D9 3C 

機 能 | フィ ー ル ド の 始ま り を 設定 する . 

| レジ スタ | A 

|WORK | (0 1E5) ニ フ ォ アグ ラウ ンド カラ ー 

|S UB| $DA30 一 SUBOUT PUT 初 期 設 定 ル ー チ ン 


$DA36 つ SUBOUT PUT 後 続 設定 ルー チン 
$DA62~BIOS 実 行 ル ー チ ン 


サブ シス テム に オー ダ と し て SF (Set field) を 出力 し , アト リ ビ 
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ュー ト 文 字 と し て , (0 1E5) の 内 容 を 出力 し ます . フィ ー ル ド の 設定 を する 
- こ と に は 重要 な 意味 が あり , 連続 し た 文字 列 で も フィ ー ル ド が 美 な っ て いる 
と ,。 サ ブシ ステ ム は , 2 つの 別 の 文字 列 と し て 処理 し ます . 従っ て , 新規 に 出力 
する 文字 列 を 新た な フィ ー ル ド と し て 定義 し た い 場 合 は , この ルー チン を 呼ぶ 必 
要 が あり ます 【〔 シ ステ 4 ム 仕様 2. 2. 4 (5) 一 (9) 参 早 ] . 


(5) フィ ー ル ド 設 定 , お よび イレ ー ズ ルー チン 


| アド レス | $D93D-$D943 
機 能 | フィ ー ル ド を 設定 し た 後 , EL Erase Line : シス テム 仕様 2 . 
2 . 4 ( 1 2 ) 〕 を 出力 し ,。 フィ ー ル ド の 終り まで イレ ー ズ を 行う . 
A 
|「S U B| $D9 2Fー つ フィー ルド 設 定 ル ー チ ン 
$D0 8Eー 1 バイト 出力 ルー チン 


4 一 6 一 3 その 他 の 主 な コン ソー ル 入 出力 関係 ルー チン の 概要 
(1) カー ソル の X, Y 座 標 読 み 取 り ル ー チ ン 


| アド レス | $D9DE-$D9F3 

| 機能 | 現在 の カー ソル 位置 (バッ ファ アド レス ) を 読み 取る . 

| レジ スタ | A, 日 , X, U り (X, U は 保存 ) 

| 復帰 情報 | D レ ジス ター カーソル の X 座標 と Y 座 標 

"WORK | (01B7) ー サ プ ブシ ステ ム へ の コマ ンド ⑩ 
(01B8 : 01B9) ニ サ プ コ マン ド か ら の 復帰 情報 
(030B: 0 3 0C) ニニ カーソル の (X 座 標 : Y 座 標 ) ⑩W 

|S U B| $D9F4 一 汎用 RCB 設 定 ル ー チ ン 
$00DE… つ BIOS ジ ャ ンプ ルー チン 


| 解説 | SD9F4 を 使い SUBI 人 GET Buf- 
fer Address の コマ ンド を サブ シス テム に 送り ます 【 シ ステ ム 仕 欄 2. 2. 1 1 
(10) 〕 . その 復帰 情報 か ら 。 フ バッ ファ アド レス の 失 お よび Y 座 様 , 有色 ち カー 
ソル の 位置 を 読み 取っ て ワー クエ リア (030B:030C) へ 格納 し ます . 


207 


(2) カー ソル の X, Y 座 標 設定 ルー チン 


アド レス | $SDA6D, $DA70 一 $DA7F 

機能 | カー ソル の 位置 (バッ ファ アド レス ) を 設定 する . 

レジ スタ | A, B 

入力 情報 | D ロ レジ スタ ニカ ー ソ ル の X 座 標 と Y 座 標 (も DA6D の 場合 の み ) 

WORK (0 30B: 0 3 0C) ニカ ー ソ ル の (X 座 標 : Y 座 標 ) ノン ⑩ 

SU り UB| も $ も DA30 つ SUBOUT PUT 初 期 設定 ルー チン 
$DA35 つ SUBOUT PUT 後 続 設 定 ル ー チ ン 
$DA62 つ つ BIOS 実 行 ル ー チ ン 


解 説 | SBA 〔Set Buffer Address: シス テム 仕様 2. 2. 4 (1 0)] 
を 用 いて , (030B:030C) に 檜 納 され て いる , カー ソル の 災 座 標 と Y 座 
標 を サブ プシ ステ ム に バッ ファ アド レス と し て 送り ます 。 $DA6D が エン トリ の 
電 全 に は D レ ジス タ の 値 を 事前 に (030B: 0 30C) に 代入 し て いま す . 


ーー 


(3) 画面 消去 (CLS) ルー チン 


アド レス | $ や DA80, $ も DA8BCー$DAA5 
機能 | 画面 お よび コン ソー ル バ ッ ファ を 初期 化す る . 
レジ スタ | A, 日 
入力 情報 |  B ヨ レジ スタ ニ = 消 去 男 囲 (解説 参照 7 も ゃ SDA 8B エ ント リ の 場合 ) 
WORK | (0 1 0 2 一 0 1 0 5) ニ サ ブシ ステ ム へ の デー タバ ッ フ ァ ⑩ 
(0U1E5: 01E6) = ニ ( フ ォ ア : バ ッ ク ) グ ラウ ンド カラ ー 
(05A5) = ニ RCB 中 の デー タバ イト 数 
U $ ふ 0 0D8 一 テキ スト 読み 込み ルー チン 
ゃ C 7 BEー テ キス ト 数 値 読み 込み レー チン 
$ も DA21 つ SUBOUT PUT 設定 ルー チン 
$DA54…BIOS 実 行 ル ー チ ン 


び ) 
UJ 


解 説 | ゃ DA80 は !「CLS」 の エン トリ で す の で , テキ スト の 読み 込み 
を し て いま す . ユー ザ は $DA8B を エン トリ と し て 使う の が 適当 で す . $ DA 
21 を 呼ん で は いま す が , コマ ンド を PUT に 代え て ERASE 2 を 再 設定 し て 
いま す . 入力 情報 の B レ ジス タ の 値 は . ERASE 2 の W の 値 と 同様 で す . ま 


0S 


いら 


た , (0 1E5 : 0 1E6) より 画面 の 文字 色 と 背 曲 色 の 設定 も 行い ます 【 シ ス 
テム 仕様 2. 2. 1 1 (1 3) 参 昧 ]. 


(4) カー ソル 消去 ・ 表 示 ル ー チ ン 1 


$DADF, $DAE4…$DAEE 

カー ソル を 表示 ($DAE 4 ) , 消去 ($DADF) する . 
| レジ スタ | A, BB (全て 保存 ) 

|S U B| $DBD5 一 コン ソー ル 制 御 ル レー チン 


(5) カー ソル 消去 ・ 表 示 ル ー チ ン 2 


| アド レス | $DAEF, $DAF6 一 $DB0B 
機能 | カー ソル を 表示 ($DAF6) , 消去 ($DAEF) する . 


「 レジ スタ | A, B, X  (X は 保存 ) 

「'WORK | (05AB8) ーー コン ソー ル 制 御 フ ラグ ⑤⑥ 
(0U1B7 : 0 1B8) ニ デ ー タ バッ ファ (W 

'S U り B| $D0DE つ BIOS ジ ャ ンプ ルー チン 


解説 | (4) の ルー チン で は , 結果 的 に (05A8) を 変え て し まい ます 
が , この ルー チン は , (05A8) を 参照 する だ け の 一 時 的 な も の と な っ て いま 
す . た だ し ,(0 5A8) が も と も と カー ソル 表示 を し な いよ うに 設定 され て いれ 
は 。 も DAE0O の キン トリ で この ルー チン を 呼ん で も カー ソル は 表示 し ませ ん 。 
(05A8) の 内 容 に より コン ソー ル 機 能 を 設定 する と いう 点 か ら 見 れ は , 
次 の (6 ) の ルー チン と 同じ 機能 を 有 し て いる と いえ ます . な お , この ルー チン 
で 使う RCB は , $DBO7-$DB0OC に 格納 され て いま す . 
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(6) コン ソー ル 制 御 ル ー チ ン 


$DBD5, $DBD8, $DBDD, $DBE1-$DBF 2 

能 | コン ソー ル 機 能 を 選択 する . 

レジ スタ | A, 日 

入力 情報 解説 参 照 

WORK | (05AB8) ー ニ コンソ ー ル 制御 フラ グ ⑩ 

(0102:0 1 0 3) ニ サ ブシ ステ ム へ の デー タバ ッ フ ァ 

S U Bl $DA2 1 一 汎用 RCB 設 定 ル ー チ ン 

終了 条件 | 画面 消去 ルー チン の 途中 (も DAA0U) に ジャ ンプ し , RC 日 中 の 
デー タバ イト 数 の 設定 を 行い BIOS 実行 ルー チン を 呼び 出す と 
いう 部 分 を 流用 し て いる 。. 


| 解説 | SDBD5 エ ント リ の 場合 は , B レ ジス タ の 内 容 を 見 て 、 その 値 が 
0 の と き は $DBDD に 飛び , 0 以外 の と き は $DBD8 に 飛び ます . $DBD 
8 お よび $DBDD で は , A レ ジス タ の 各 ビ ッ ト で 指定 され る 機能 の ON, OF 
F を 行い ます . $ DBE 1 は A レ ジス タ の 内 容 が 直接 に (05A8) と CF ( 制 
御 フ ラグ ) に 代入 され て , 各 機 能 が 選択 され ます ( 図 4・6・1 ) . この ルー チ 
ン は $ DA 2 1 を 呼ん で は いま す が , コマ ンド を PU 丁 に 代え を て CONSOLE 
CONTROL 〔 シ ステ ム 仕 様 2. 2. 1 1 (1 2 ) 〕 で 置き 換え て いま す . 


図 4・6・1 各 エ ント リ と 動作 の 関係 


My CF (制御 フラ グ ) 
ビッ ト 0 : カー ソル 表示 
5 ー SDBDD ビ ピット 1 : オー ダ 動 作 
ー ビッ ト 3 : ペー ジウ ェ イ ト 
機能 0 N ー 機能 0FF ピッ ト 4・ ブ プッ トウ ェ イ ト 


| Areg-(05A8) つ CF 


ピット 5 : オ ー ト し LF 
※1 三 0N, 0 三 0FF 
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(7)  B ビ ヒビ ヒロ ルー チン 


| 解説 | も DB2A-$DB5 3 
| レジ スタ | AX 


$SDB2A は 「BEEP 一 」 用 な の で , 次 の エン トリ を 用 いて 下さ 

い . 

@e$ や DB3 8 一 定時 間 プ ザー を 鳴ら し ます (サブ シス テム の BEL (Bell) オ 

ー ダ [システム 仕様 2。 2. 4 (13) を 合用] 、. 

@ や DB3F プ ブザー を ON し ます 〔【BIOS の BEEP ON を 使用 ] . 
@e$ ふ DB4 4 プ ブザー を OFF し ます [BIOS の BEEP OFF 使 用 〕 . 
@$ や DB49 一定 時間 プ ザー を 鳴ら し ます [$DB3F, $DB4 4 使用 ] . 
この ルー チン の RCB は , SDB26--$DB2 9 の 領域 に あり ます (BEE 
P ON, OFF は シス テム 仕様 2 . 1.4 (8 ) お よび (9 ) 参照 ]. 


4 一 6 一 4 ブリ ンタ 出力 ルー チン 
(1) プリ ンタ オー プン (OPEN) ルー チン 


| アド レス | $D9A5 一 $D9D8 
機能 | プリ ンタ を オー プン する . 
A。 B,。 XY 


| 入力 情報 | A レ ジス タニ ファ イル の モー ド [アウ トブ プット (=$2 0 ) の み ] 


(0 2E7 : 0 2E8) ニ フ ァ イル の オプ ショ ン (<) 


(05AA:0D5AB) ニニ プリ ンタ の ジャ ンプ テー ブル 先頭 アド レ 


ス (= 生 0 7 78) ( 
(05BF) ー プ リン タ 自 動 改 行 フ ラグ 


$D6 1 7 つ ー プ リン タ 1 バイ ト 出 力 ル ー チ ン 


解 説 | プリ ンタ の ジャ ンプ テー ブル の 先頭 アド レス か ら 1 9 バイ ト 目 と 2 
0 バイ ト 目 , 中 ち (0 78B) と (0 7 8C) に は , 各々 の プリ ンタ の 改行 桁 数 
と フィ ー ル ド 改 行 桁 数 (出力 する も の を コマ ンド で 区 切る 場合 , BASIC は 1 
行 を 1 4 文字 すず つの フィ ー ル ド に 分 け ま す が , この と き 現 在 の 桁 数 が フィ ー ル ド 
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区 行 桁 数 より も 大 きく な っ た 場合 に 改行 され ます ) が 入っ て いま す が , オプ ショ 

ン の 指定 に より 次 の よう に 変わ り ま す ( “W" の 指定 の と き は , 締 小 文字 を 指定 

し て お か な いと , 不適 当 な 所 で 改行 する こと に な り ま す ) . 
改行 桁 数 (0 7 8B) フィ ー ル ド 改 行 桁 数 (0 7 8 C) 

“"W” : $ も 88 (= ニ 13 ぼ 6) $7 0 ( テ 11 27) 

“S” : $ も 50 (=8OU) $3 8 (=56) … (BAS1IC 起 動 時 ) 


まだ , オプ ショ ン の 此 2 の パラメータ (“F ド ” まだ は “N” ) が あれ ば , ブリ ン 
タ の 目 動 改 行 フ ラグ (05BF) が , “FE の と き は 0 “N" の と き は 1 が 代 
和信 され , PR INT ル ー チ ン で 参照 され ます , これ ら に つい て は ,。 シス テム 人 解説 
の 1 4 . 5 節 を 人 御 参照 下さ い . この 後 。 この ルー チン は プリ ンタ 1 バイ ト 出 カル 
ー チ ン を 利用 し て , プリ ンタ の レデ ィ チ ェ ッ ク を 行っ て いま す . 


(2) プリ ンタ 1 バイ ト 出 力 ル ー チ ン 


| アド レス | $D617 一 $D6 2A 
機能 | プリ ンタ に 1 バイ ト 出 力 す る . 
AX。Y 
A レジ スタ = 出力 する デー タ 
X レ ジス ター プリ ンタ ジャ ンプ テー ブル の 先頭 アド レス 
SU 日 $ も D659 つ プリ ンタ の レデ ィ チ ェ ッ ク お よび 1 バイ ト 出 力 ル ー チ ン 


$D659 を 使っ て プリ ンタ に デー タ を 出力 し た 後 , 出力 デー タ が 
文字 コー ド ($2.0 一) な ら ,。 ジャ ンプ テー ブル の 1 8 バイ ト 目 (0 78A) に 
格納 し て いる プリ ンタ の 現在 の 桁 数 を 十 1 し ます . た だ し , 改行 桁 数 (0 7 8 
B) より 大 きく な っ た 場合 は , 0 に 再 設 定 さ れ ま す . 

ban ギン お OK の (3 ) で アプリ ング に 測 力 し た デュ ー ク は アリ ンク 
の バッ ファ 内 に 花 え られ , $0D (CR: キ ャ リッ ジリ ター ン ) ま だ は $0A(L 
ド : フ イン フィ ー ド ) が プリ ンタ に 出力 され だ 時 点 ,。 あるいは バッ ファ が いっ は ぱ 
に な っ た 時 点 で 印字 きれ ます . 


メー 


いら 
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(3 ) プリ ンタ の レデ ィ チ ェ ッ ク 及 び 1 バイ ト 出 力 ル ー チ ン 


アド レス | $D659-$D66F 

機 導 | プリ ンタ の レデ ィ チ ェ ッ ク お よび 1 バイト 出力 する . 

レジ スタ | A, X  (X は 保存 ) 

入力 情報 | A レ ジス タテ 出力 する デー タ 

WORK (0 100) ニニ データ バッ ファ と し て ⑩ 

SU り B| $D6 7 8 一 Abort ルー チン 
$00DE つ BIOS ジ ャ ンプ ルー チン 


HB 


解説 | BIOS の LPCHK 〔 シ ステ スム 仕様 2. 1. 4 (1 9) 〕 を 使い 
レツ デイ ナ ェ テッ クノ で ぞ で 且 い 。 レ ディ ASCA り ば ン レー クキ ー タ チュッ クノ し て る 
れ が 押さ れ て いれ ば Abort し ます . 押さ れ て いな けれ ば LPCHK を 繰り 返し ま 
す . レデ ィ 状 問 な ら A レ ジス タ の 内 容 を LPOUT [シス テム 仕様 2. 1. 4 
(1 0 ) 」 を 使っ て 出力 し ます ,。 この ルー チン で 使う RCB は LPCH 人 KK 用 の も 
の が $D670-$D671, LPOU 征 用 の も の が $D672-$D677 に 
格納 され て いま す . 


(4) プリ ンタ 改行 ルー チン 


アド レス | $D64Aー$SD6B58 ($D62B-$D6 4 9) 


機 用 プリ ンタ の バッ ファ に 蓄え られ た 文字 デー タ を 印字 し た 後 , 改行 する . 


| レジ スタ | A, B, X, Y  (X は 保存 ) 
[WORK | (0 5AA: 0 5AB) = ニ プ リ ンタ ジャ ンプ テー プル 先頭 アド レス 
( ぶ ) 
(01E37) ー プ リン タ 出 力 禁止 コー ド (=$0D) ⑥ 


$D 6 2 Bー プ リン タ 1 バイ ト 出 力 ル ー チ ン (改行 用 ) 


| 解説 | $D62B を 利用 し て CR ($0D) と LF ($ 0 A) を 出力 し ま 
す . $D62B で は (0 1E3) で 出力 禁止 コー ド を 指定 し て いる の で , 実際 に 
は CR が 出力 され ませ ん . ここ に $0A に 設定 し た と き に は ,。 プリ ンタ の ディ ッ 
フス イッ チ が 自動 改行 に な っ て いる 場合 は じ CR が 出力 され 2 行 改 行 さ れる こと に 
な り ま す が , 自動 改行 で な い 場 合 は , LF が 出力 され な い の で 改行 され ませ ん . 
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5 章 数値 演 算 


5 一 1 マシ ン 語 上 で の 整数 の 表現 


6 8 0 9 で は , 符号 な し 2 進数 , 符号 付き 2 進数 、 パ ッ ク 化 1 0 進 人 数 の 3 
記 数 信 の 湯 昇 が 志 


CS る よう ( 5 
Ii 


(1) 符号 な し 2 進数 で の 正 の 整数 の 表し 方 (1 バイ ト に つい て ) 
1 0 進数 と 2 進数 と の 対応 は 表 
5・1・1 を 御覧 下さ い . 
OB Co 
bzxX27 十 baxX2? 
上 b。x2 士 bxX2| 
上 b。X2! 士 b。x 22 
寺 b」X 21 土 b。 
を 2 がり ます 、 


(2) 符号 付き 2 進数 で の 整数 の 表し 方 (1 バイト に つい て ) 
正 の 整数 に つい て は b, を 0 に し て bs 以下 で 符号 な し 2 進数 と 同様 に 表し ます . 
負 の 数 に つい て は 少々 複雑 で す が 例 を 御覧 下さ い . 


好 5・1・1]1 
0011I10010 


く 例 > 


+ 和 110011II0O 
00000000 


例 で は 1 0 進数 で 5 0 と いう 数 値 が Acc に 代入 し て あり ます . この Acc の すべ 
て の ビッ ト を 太 転 し ます (6 8 0 9 の 命令 で は COM と いう ). さら に この 数 値 に 
を 足し ます (6 8 0 9 の 命令 で は INC). この 結果 Acc に 求め られ た 値 を 一 5 
0 と いう 値 に し ます (この 数 値 の 負 を 求め る 命令 を NEG と いう ). な ぜ こ れ が ーー 
5 0 を 表す か は , 図 5・1・1 を 御覧 下さ い . 2 進数 で 5 0 と いう 数 値 と この 一 
5 0 と いう 数 値 を 足す と 0 となり ま す . この こと か ら こ の 数 値 を - 5 0 と し ます . 
表 5・1・2 は 1 0 進数 と の 対応 を 示し ます . 


217 


3) 2 バイ ト の 整数 

2 バイト の 整数 は 符号 な し 2 進数 を 下位 
バイ ト に , 符号 付き 2 進数 を 上 位 バ イト に 
し た も の で す . つま り 図 5・1・2 の よう 
に 16 ビ ッ ト の 一 連 の 符号 付 2 進数 と 考え 
られ ます . ドーBASIC で は この よう な 
形 で 整数 を 扱っ て いま す . 


(4) 整数 の 減算 

6 80 9 で は 減算 (SUB) と いう 命 
令 が あり ます が , この 命令 を 使わ な く て 
も 宏 算 が 可能 で す . それ は , 引く 方 の 数 
値 の 負 を と っ て (NEG を と る : これ か 
ら は この 意味 で NEG と いう 言葉 を 使い 
ます ), それ か ら 加 算 を すれ ば よい わけ で 
す . 
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2 つの バイ ト を 重ね て 16 ピ ッ ト 
を 作る と 考え る . 
付 与 ビッ ト 


5 一 2 演算 の 方 法 


一 般 的 な 演算 の 方 法 は 次 の フロ ー チ ャ ー ト で 示さ れる アル ゴリ ズム を 実行 し て 
MS まま 9 
補 数 値 型 の 判断 
前 に も 述べ た よう に 数 値 に は , 整数 , 単 精度 実数 , 倍 精 度 実数 の 3 種類 が ある 
ため これ を 判断 し な けれ ば な り ま せん . これ を 調べ る に は , $ 0 0 1 7 番地 を 見 
ます . この 値 は $ 0 2 の と き 整 数 型 , $ 0 4 の と き 上 単 精度 型 、$0 8 の と き 僅 精 
度 型 と な っ て いま す . 
Error 処 理 
Error は 演算 の 前 後に 処理 され ます . 前 の Error は お も に Type Mismatch な 
ど で 後 ろ の Error は Overflow な ど で す . 
補正 規 化 ルー チン 
後 で 詳し く 述 べ ま す の で ここ で は 簡単 半生 
に 本 れれ て お きま す 。 この ルー ナン は 一 上 順 算 の フロ ー チ ャ ー ト 
の 演算 で 起こ る 誤差 を な る べく 小さ くし 
よう と する ルー チン で , 演算 を 終え る た 
びに この ルー チン を 必ず 通さ な けれ ば な 
り ま せん . 
益 和 丸め ルー チン Error 
これ も 後 で 詳し く 述 べ ま す が , 四 捨 五 " 
入 ル ー チ ン と 言う こと も で きま す . 数 値 型 に 対す る 


演算 処理 


以上 が 演算 を 行う 上 で 重要 な ルー チン 
で す が ,。 ユー ザ が 自分 で 関数 を 作る と き ー 
を FTOT 


も (例え ば USR 関 数 ), この よう な アル 
ブリ ズム を 作る こと が 必要 で す (ドーB 


ASIC・ROM 内 の 関数 を 使え ば 問題 正規 化 


は あり ませ ん ). 
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5 一 2ー1 数 値 型 判 断 ル ー チ ン 


アド レス | $BCAE, $BCA5,$BCB3 
欄 。 能 | $BCAE : 文字 列 型 の と き に は Error を 発生 し , 他 の 型 の と き に 
攻守 の よう に AA レン スク と フラ ラク ん セット す る , 
BCA5 : 文字 列 型 以外 は すべ て Error を 発生 する . 
$ ゃ BCB3 : 数 値 の 型 に 従っ て 表 の よう に フラ グ と A レ ジス タ の 内 
容 が 変化 する . 
レジ スタ | A,。 B, CC 
入力 情報 | (0 0 1 7) ニ FAC1 の 数 値 の 型 ($ 0 2 = 整数 型 , $ 0 3 三文 
字 列 型 」, $ 0 4 三 単 精度 型 , $ 0 8 = 倍 精 度 型 ) 
復帰 情報 | CC, A レ ジス タ に 表 5・ 2 ・1 の 数 値 が 入る . 
WORK | (0017) 
ら り 日 | や 8DD1 一 エエ ラー 処理 ルー チン エン トリ 


表 5・2・1 フラ グ と A レ ジス タ の 状態 


hulrhl srrh 
IEEE5 
sslelelelele| ses 
xg| suslelelilelil see 


解 説 | ド AC1 の 数 値 型 を 表す 数 値 は ドーBAS1IC 上 で は $ 0 0 1 7 番 
地 に 格納 され ます . この ルー チン は この 値 を 調べ て 各 フ ラグ を セッ ト し , 必要 に 
応じ て Error (Type Mismatch) を 発生 し ます . 


5 一 2 一 2 符号 判定 ルー チン 


アド レス | $B3C8 
機 能 | FAC1 の 数 値 の 符号 を 判定 する . 
レジ スタ | A, 日 , X 
入力 情報 | FAC1 ーー 数値 
(0 0 17) ニ FAC1 の 数 値 型 


上 


いら 
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復帰 情報 | CC と B レ ジス タ が FAC1 の 符号 に よっ て 下 の よ うに 復帰 する . 


FAC 1 

$BCAE 一 数 値 型 判 断 ル ー チ ン 5 一 2 一 1 参照 

文字 列 型 の 数 値 が F AC 1 に 入っ て いる ($00 1 7 番地 に $0 3 
が 入っ て いる ) と き は Error (Type Mismatch) が 発生 する . 


解説 | FAC 1 の 値 は 数 値 で あれ ば 何 型 で も 使用 可能 で す . この ルー チン 
+T OCG な どの Error 処理 を 行っ た り , 正負 に よっ て 処理 の 仕方 を 変 た た いと き 
に 用 いら れ ま す . 


5 一 2 一 3 正規 化 ル ー チ ナン 


$ も AF97, $SB0D0A ($B0U0A は $AF 9 7 と ペア て 使用 ) 


機 能 | ゃ AF9 7 : 数 値 の 正規 化 を 行い その あと 丸め を 行う . 
$B 0 0 A : 数 値 の 丸め を 行う . 

A, B, X,U 

$AF 9 7 の と き 


FAC1 ー 正 規 化 され て いな い 数 値 

(0 0 1 5) 単 精度 型 の と き $ 0 0, 倍 精 度 型 の と き $ 0 0 以外 
復帰 情報 | $AF 9 7 の と き 

FAC1 = 正規 化 さ れ た 数 値 


FAC 


(0 0 8 C) = 保護 バイ ト 


衣 説 | 正規 化 と か 丸め と か 聞き な れ な い 名 前 で す が , 数 値 の 誤差 を 到 小 上 
に する た め に は 必要 不可 欠 な も の で す . 
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(1) 正規 化 ル ー チ ン 
と ん な コン ピュ ー タ で あっ て も 。 科 動 小数 点 表示 の 仮数 部 に は 限り が あり ま 
す . 下 の 例 を 御覧 下さ い . 


< 例 ) 
0.11010000xX20=0.00011010xX29……① 
0.11010011x27S0.00011010X23…… の ② 


仮数 部 が 8 ビッ ト (初め の 0 と 小数 点 は 含ま な い ) で ある と し ます . ① で は 
左辺 と 右辺 は 同じ 数 値 を 表し て いま す . と ころ が ② の 左辺 の よう に 下位 3 ビッ 
ト に 数 値 が 現れ る と, 左辺 と 右辺 は 等 し く な り ま せん . ここ で 注目 し て ほし い 
の は 右辺 の 小数 点 以 後 の 3 ビッ ト が 無 意 味 に な っ て し まう こと で す . で すか ら 
更 算 を 行っ た 後 は , この 無 意 味 な ビッ ト を な くす た め 堪 辺 の よう に 必ず 小数 点 
自 後に 1 が 立つ よう に し ます . 

ドーBAS TIC 上 で は EAC 1 の 他 に 保護 バイ ト と 呼ば れる バイ ト を $ 0 0 
8 C 番 地 に 作っ て いま す . この バイ ト は FAC 1 の 仮数 部 の 最 下 位 バ イト の きる 
ら に 下位 の 1 バイ ト を 保存 し て お きま す . つま り FーBAS 1C で は , 演算 の 
結 林 を 単 精度 型 で は 3 2 ビッ ト ま で , 倍 精 度 型 で は 6 4 ビッ ト ま で 求め て いま 
す . この よう に し て か ら め 小 数 点 直 後に 1 が 現われ る まで 全 ビ ッ ト (保護 バイ ト 
も 含む ) を 左 へ シフ ト し ます ( 例 参 照 ). 
< 例 > 簡単 に する た め 仮 数 部 を 8 ビット, 保護 バイ ト を 3 ビッ ト と し ます . 

0.00011010X2"? 保護 バイ ト =0 1 1 

っ 0.11010 0 11X210…… ③ 
この よう に すれ ば ② 右 辺 は @ 左 辺 と 等 し く な り ま す . 
この よう な 操作 を 正規 化 と いい ます . 
(2) 丸め ルー チン 

この ルー チン は 2 進数 上 で の 四 捨 提 入 (2 進数 で は 0 捨 1 入 か ?) の ルー チ 
ン と いっ て も さしつかえ あり ませ ん . 正規 化 ル ー チ ン で も 述べ た よう に FAC 
1 に は 保護 バイ ト が あり ます が , 正規 化 ル ー チ ン を 通し た 後 で も まだ 保護 バイ 
ト に 数 値 が 残っ て いる こと が あり ます . この と き 保 護 バ イト を 2 倍 し て C フ ラ 
グ が 立つ か どう か を 調べ ます . C フ ラグ が 立っ た と き に は FAC 1 の 最 下 位 バ 
イト に 1 を 加え ます . この 操作 を 丸め と いい ます ( 例 参 照 ). 
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< 例 > 1 0 進数 の 丸め 


10.567 ょ ここ の 桁 を 保護 バイ ト と 考え る . 
1__ ここ - で 丸め た いと する 。7x2 ニ 1 4 と な り 桁 上 が り 
丸め 


が 生じ る の で 6 の 所 に 1 を 加 
10.57 ん る ・ 
< 例 > 2 進数 の 丸め 
0.1110100 休 護 バイ ト (3 ビッ ト と する ) 


の 1 
保護 バイ トー|I1 0 0 ヒーー テ 1 
| 0 0| 
ここ で 丸め た だ た だい. ウジ クン クン グ 2000 の 0 eo の 
丸め すぐ 上 に 1 を 中 す 


0.1 1 ] ]1 


5 一 2 一 4 切捨て ルー チン 


| アド レス | $B0O68 
機能 | FAC の 絶対 値 の 切り 捨て を 行う . 
A, 日 X 
| 入力 情報 | B レ ジス タ 三 切 り 捨て た い ビ ッ ト 数 の NEG の 値 
メレ ジス タ = 3 つ あ る FAC の 先頭 番地 ($ も 0074, $00B8 
2, $0028) 
F AC ー 切 り 捨 て た い 数 値 
(0 0 15) 三 単 精度 型 の と き $ 0 0, 倍 精度 型 の と き $0 0 以外 
(0 0 8 1 ) = 必ず $0 0 代入 
| 復帰 情報 | FAC 絶対 値 の 切り 捨て を 行っ た 結果 
B ロ レジ スタ =$$0 0 
(0 0 8 C) 三保 護 バ イト 
B レジ スタ の 値 は 切り 捨て た い ビ ッ ト の NEG (例え ば 1 ビッ ト 切 
リ 捨 て た い の な ら $FF, 2 ビッ ト な ら $FE を 代入 し ます ) を 取っ た 値 を 入れ 
還 9 
実際 に どの よう に な る か 簡単 な 例 で 示し ます . 
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< 例 > B レ ジス タ に $FD を 入れ ます (簡単 に する た め 仮 数 を 8 ビット と し ま 


す 初 め の 0 と 小数 点 は 数 えま せん ). 
MM 人 上 00011X が っ 0.00010000X2 


FAC に は 左辺 の 数 値 が 入っ て いる と し ます . この ルー チン を 呼び 出す と 
右辺 の 数 値 が FAC に 入り ます . この 数 値 が F AC 1 の 中 に ある と き は この 
後 $ 0 0 8C 番 地 に $ (0 0 を 入れ て , 正規 化 ル ー チ ン (5 一 2ー3 参 早 ) を コ 
ー ル すれ ば 以下 の よう な 切り 捨て た 値 が FAC 1 に 入り ます . 

0.10000000X〆 が 
な お , この ルー チン は 単 精度 型 と 倍 精 度 型 の 数 値 で し か 利用 で きま せん . 


5 一 2 一 5 数 値 型 変換 ルー チン 


F-BASIC で は C INT, CSNG, CDBL な ど 数 値 の 数 値 型 を 変 
il 令 が あり ます が , これ ら は 以 ト IA ラマ つ う の) ザン ルー 昌和 


1) 単 精度 実数 を 倍 精度 実数 に 変換 する ルー チン 


も BCD5 
F AC 1 の 内 容 を 単 精度 実数 か ら 倍 精度 実数 に 変換 する . 
A,。 X 


FACT1 ー 単 精度 実数 

FAC1 ー 倍 精 度 実数 

(0 0 1 7 ) = 倍 精 度 型 を 示す 数 値 (08) 
(7 8 一 7B) , (0017) 


説 | この ルー チン は 4 つの 変換 レー チン の 中 で 最も 簡単 で す . 以下 その 
概略 を 述べ ます . 

人 7 8 一 7B) を 初期 化し ます . 

ii $ 0 0 1 7 番地 に he 
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(2) 整数 を 単 精度 実数 に 変換 する ルー チン 


$ も BCFF 
F AC 1 を 整数 か ら 単 精度 実数 に 変換 する . 
A, B, X, U 
FACT1 ー 整数 
FAC1 三 単 精度 実数 
(0 0 1 7 ) 三 単 精度 実数 を 示す 数 値 ($ 0 4) 
F AC 1 
( 0 0 8 C) 保護 バイ ト 5 一 2 一 3 参照 
$B 3 AD 一 符号 を 判定 し て 正規 化 ル ー チ ン を 呼ぶ 


以下 に この ルー チン の 簡単 な アル ゴリ ズム を 示し ます . 図 5・2・ 


ー タ を 1 バイ ト ず つ 上 ヘ シ フト し ます ( ゆ ① の 凶 ). 

7 番地 を $ 0 2 (整数 型 ) か ら $ 0 4 ( 単 精度 型 ) へ 変え ます . 

Ss 0 0 7 4 番地 (指数 部 ) に 代入 し ます . 

こ で な ぜ 指 数 部 に $ 9 0 を 入れ る か 述べ て み ま す . ②⑫ の 図 を 件 夏 下 さい . 

この 状態 で $ 0 0 7 6 番地 の b。 (整数 の 最 下 位 ) は ダダ の 位 に な り ま す . ここ 
実数 は X*2" の 形 で 表 き され る こと を 思い 出し て 下さ い 、 FEFAC1 の 指数 
部 に 入る の は ($ 8 0 十 n) で す . の の 位 の こと を 考え る と 整数 の 1 つ 上 の 
ビッ ト . つま り X の 小数 点 の 1 つ 上 の ビッ ト は 2 の 16($ 1 0) 乗 の 位 に な 
り ま す . この 値 が n と な り ま す . で すか ら 指 数 部 に ($80 十 $10) を 人 入 
れれ ば 実数 型 に 変換 で きる わけ で す . 

(iv) 数 値 が お 負 で あれ ば 仮数 部 の NEG を と り ま す (整数 は 2 の 補 数 衣 現 ). 

(v) 正規 化 ル ー チ ン (5 一 2 一 3 参照 ) を 実行 し ます . 

※ 例え ば , $ 0 0 8 1 な どの 整数 は 仮数 部 の 一 番 最初 に 1 が 立ち ませ ん の で 
正規 化 ル ー チ ン を 行い ます . 
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図 5・2・2 整数 型 を 単 精度 型 に する 


ここ が 216 の 信 に な る 


0017 
00741 
0075 | | 
0076 
0077 ーー 一 一 ここ の 【 入 人 放 ト DE の 
0 078 虹 終 ピット) 27 の 
0079 小数 点 位 に な っ て いる . 
0) 0 7 八 
007B 
UE 

| | 0 0 8C 

① 還 の 
3) 単 精度 実数 を 整数 に 変換 する ルー チン 


| アド レス | sgc7 


機 能 | FAC1 の 内 容 を 単 精度 実数 か ら 整 数 に 変換 する . 


A, 日 
FAC1 = 単 精度 実数 
復帰 情報 | FAC1 ー 整数 


(0 0 1 7 ) = 整数 を 示す 値 ($ 0 2) 


WORK | FAC1, (0081) 
IS UB| $B435ーFAC の 符号 を 調べ 切り 捨て を 行う 
終了 条件 | FAC1 の 値 が ー3 2767 一 十 32767 を 越え る と $04 4 


番地 へ 飛ん で Error (Overflow ) を 発生 する . 


ほぼ 以下 の アル ゴリ ズム を 行っ て いま す . 


(i) 指数 部 が S 9 0 以上 の と き (FAC1 の 絶対 値 が 3 2 7 6 8 以上 の と き ) 
は Error (OverHow) を 発生 し ます . 

i) 指数 部 か ら $ 9 8 を 引き ます . その 値 を B レ ジス タ へ 入れ て 切り 捨て の ル 
ー チ ナン (5 一 2 一 4 参照 ) を 呼び ます . 

※ 指数 部 か ら $ 9 8 を 引く 埋 由 

図 5・2・3 を 御覧 下さ い . ① の よう に 指数 部 に $ 8 8 が 入っ て いた と し 

ます . $ 0 0 7 5 番地 の b, は 27 の 位 に 相当 し ます か ら グ の 位 は $0075 
番地 の by の と ころ に な り ま す . で すか ら こ の 2 の 位 が $ 0 0 7 7 番地 の Do に 
来る まで 右 へ シフ ト (切り 捨て ) すれ ば (7 6 : 7 7) に 整数 の 絶対 値 が 入 


いら 


20 


ーー 


り ま す . この 場合 右 へ シフ ト す る の は $ 1 0 回 で す . この 値 を 得る の が ( 指 
数 部 一 $ 9 8) で す . 

() 数 値 が 負 の と き は (76 :77) の NEG を と り ま す . 

 $O) O17 番 地 へ $02 を 代入 し ます . 

※ この ルー チン で は FEAC1 に ーー32768 を 入れ て も FError を 発生 し ま 


図 5・2・3 単 精度 型 を 整数 型 に する ( 例 ) 


0 が 詰め られ る . 


ここ の 部 分 に 整数 と し て 
人 る . 
2 "の 位 

$00 17 番 地 が $O 2 
と な る た だ ため 何 が 入っ て も 
関係 な い . 


に の 罰 の ビ ピ ッ ト が ここ に 来る 3 で 
右 ヘ シフ ト す る . 
この 例 で は この ビッ ト が 29 の 位 を 表す . 


) 倍 精度 実数 を 単 精度 実数 に 変換 する ルー チン 


$BCEE 

人 科 _ 能 | FAC1 の 内 容 を 倍 精度 型 か ら 単 精度 型 に 変換 する . 
FAC1 ニニ 倍 精 度 実数 

| 復帰 情報 | FAC1 = 単 精度 実数 

(0 0 1 7 ) 三 単 精度 型 を 示す 数 値 ($ 0 4) 
FAC1, (0017) 

$AFEC ( 下 の (の 所 を 実行 し て いる ) 


解 。 説 


i) $0 0 17 番地 に $ 0 4 ( 単 精度 型 ) を 代入 し ます . 
ii FAC1 が 0 の と き は 何 も せ ず に リタ ー ン し ます . 
⑪ $ ゅ 0078 番 地 の 内 容 を 保護 バイ ト へ 移し ます . 

(iv 丸め ルー チン を 実行 し ます . 


※ 。 ( 合 ) と 


ーー 


で は , $0 0 78 番地 以下 を 四 捨 所 入 す る と 考え て 下さ い 、. 
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5 一 2 一 6 数 値 を 転送 する ルー チン 


F-BASIC 内 で 数 値 を 転送 する も の に は , 2 種類 あり ます . 一 つ は FAC し 
か ら FAC へ 移す も の で す . も う 一 つ は FAC と 変数 テー ブル 間 で の 転送 を する 
も の で す 

FAC 相 互 の 問 で の 転送 は 比較 的 容 多 で す が , 少々 問題 が ある の が 人 災 数 テー ブ 
ル と FEFAC 間 で の 数 値 の 転送 で す . 

変数 テー ブル と は , 変数 エリ ア 内 の 数 値 を 置く 場所 の こと を 指し ます が , ここ 
に 格納 され る 数 値 は 必要 最小 限 の バイ ト 数 で 情報 を た くわ える よう に され て いる 
た め 。 fi 々 異な っ て いま す . 

以下 この 形式 の 数 値 の こと を 変数 テー ブル 用 数 値 と し ます . 


(1) 変数 テー ブル と FAC と の デー タ 格 納 の 違い 


し 」) 整 数 

2-2ー1 を 人 御 参 照 下さ い . 

(ii ) 単 精度 実数 (FAC 1 を 例 と し ます ) 

FAC に 入る 演算 の 結果 は 必ず 正規 化 (5 一 2 一 3 参照 ) され ます . つま り 
仮数 部 の 最上 位 バ イト の b, は 必ず 1 が 立ち ます . で すか ら こ の 1 ピット に 他 の 
情報 を 入れ た と し て も 後 で この b: を 1 に すれ ば 元 の 数 値 に も どり ます . ここ に 
本 DMR 
うに し た の が 。 変 数 テー ブル 有川 数値 で す ( 図 5・2 ・4 参照 ). 

(ii ) 倍 精度 実数 

この 場合 も 単 精度 型 の 場合 と ほぼ 同じ で す (た だ 単 精度 型 で は 未 使 用 の 箇所 

を 仮数 部 下位 の 下 へ 保存 し ます ). 


図 5・2・4 単 精度 実数 の 格納 


変数 テー ブル 用 


S0076 | 仮 数 部 中 仁 ! 


$0078 
SO0079 
$007A 
$007B 
軸 相生 


X 指 数 部 
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(2) FAC か ら FAC へ の 数 値 の 転送 


(ji)FAC1 か ら FAC 2 へ 転送 する ルー チン 
「 アド レス | $B380 
| 機能 | FAC1 か ら FAC 2 へ 数 値 を 転送 する . 


A, X 

FAC1 数値 

(0 0 1 7 ) = 転送 し た い 数 値 の 数 値 型 を 示す 値 
FAC2 ーFAC1 の 値 


FAC1, FAC2 
$ も BCB 3 一 数 値 型 判断 ルー チン 5 一 2 一 1 参照 


(ii)FAC2 か ら FAC1 へ 転送 する ルー チン 
| アド レス | $B35F 
F A C 2 か ら 数 値 を FAC1 へ 転送 する . 
| A。 X 
FAC2 = 数 値 
(0 0 1 7 ) 三 転 送 し た い 数 値 の 数 値 型 を 示す 値 
帰 情報 | FAC1 ーF AC 2 の 値 


|IWORK | FAC1, FAC2 


(3) 変数 テー ブル (メモ リ ) と FAC 間 の 数 値 の 転送 


(i) メ モリ か ら 変 数 テー ブル 用 数 値 を F AC 2 へ 転送 する ルー チン 
| アド レス | $B1BA 
[機能 | X レ ジス タ の 示す 番地 か ら 代 入 さ れ て いる 変数 テー ブル 用 数 値 を , 
FAC 2 へ 代入 し ます . 
A, 日 
X レ ジス タ 王 数 値 の 入っ て いる 箇所 の 先頭 アド レス 
(0 0 1 5) 三 単 精度 型 の と き $ 0 0, 倍 精 度 型 の と き $0 0 以外 
FAC2 三 変 数 テー ブル 用 数 値 を F AC 用 に 変換 し て 代入 
A レ ジス タ 王 数 値 代入 後 の ふ 0 0 8 2 番地 の 値 
B レ ジス タ =$0 0 7 4 番地 の 値 (FAC1 の 指数 部 ) 
(0 0 8B) 三 変数 テー ブル 用 数 値 と FAC1 の 符号 に よっ て bz 
を 次 の よう に 決定 する 
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変数 テー ブル | $8B 番 地 b 


8 U 
が | 
ga U 


WORK | FAC2, (008B) , FACT1 


解説 | この ルー チン は , 数 値 が 変数 テー ブル 用 数 値 の 格納 の 形式 に 従っ て 
代入 され て いれ ば , 変数 テー ブル 上 に な く て も 任意 の メモ リ か ら 数 値 を FAC2 
に 代入 する こと が で きま す . 

な お この サブ ルー チン は 実数 型 の 数 値 し か 扱え ませ ん . 


(ii ) メ モリ か ら 変 数 テー ブル 用 数 値 を F AC 1 へ 転送 する ルー チン 
| アド レス | $B3 101 

X レ ジス タ の 示す 番地 か ら 入 っ て いる 変数 テー ブル 用 の 数 値 を . 
FAC1 へ 代入 する . 

レジ スタ | BB, U 

入力 情報 | メレ ジス タ 王 数 値 の 入っ て いる 箇所 の 先頭 アド レス 
(0 0 1 7 ) 三 転 送 し た い 数 値 の 型 を 示す 値 

復帰 情報 | FAC1 王 変 数 テー ブル 用 数 値 を F AC 用 に 変換 し て 代入 
WORK | FAC1, (0017) 


解説 | この サブ プルー チン は すべ て の 数 値 型 で 使用 可能 で す . 


(ii)FAC 1 か ら メ モリ に 変数 テー ブル 用 数 値 を 転送 する ルー チン 
$B3 2B, $B330, $B337 
$ BB 3 2 B : 単 精度 実数 の F AC 1 の 内 容 を $0 0 6 3 番地 か ら の 
4 バイ ト に 変数 テー ブル 用 数 値 で 代入 する . 
$B 3 3 0 : 単 精度 実数 の F AC 1 の 内 容 を $ 0 0 5F 番 地 か ら の 
4 バイ ト に 変数 テー ブル 用 数 値 で 代入 する . 
$ も B335:FAC1 の 内 容 を ワー クレ ジス タ (5A: 5B) の 示 
す 番 地 か ら 変 数 テー ブル 用 数 値 と し て 代入 する (LE 
T 文 処理 用 ) . 
$B 3 3 7 :FAC1 の 内 容 を X レ ジス タ の 示す 番地 か ら 変 数 テー 
プル 用 数 値 と し て 代入 する . 


トウ 


J0 


AX,U 
| 入力 情報 | $ B 3 2 B, $B3 3 0 の と き 
(0017) =$04 ( 単 精度 型 ) 
FACT1 ー 単 精度 実数 
$B 3 3 5 の と き 
(5A:5B) 王 変数 実効 アド レス 


(代入 用 ) 
(0017) = ニ FAC1 の 数 値 型 を 示す 値 
FAC1 ー 数 値 


$ B 3 3 7 の と き 
(0 0 1 7 ) =FAC 1 の 数 値 型 を 示す 値 
FACT1 ー 数 値 
X レ ジス タ = 数 値 を 転送 する メモ リ の 先頭 アド レス 


|IWORK | FAC1, (0017) 


231 


$B620 

F AC 1 の 数 値 を 文字 列 に する . 

FAC1 = 数 値 
( 0 0 1 7 ) = ニ FAC 1 の 示す 数 値 型 

X レ ジス タ 三文 字 列 の 先頭 アド レス ($0541) 
(054 1 一 ) 三文 字 列 

(00BA) =FORMAT 指 定子 
(0063) = 小数 点 以下 の 桁 数 
(0064) ニコ ンマ カウ ンタ 
(0069) 指数 部 操作 用 レジ スタ 
(007D) 符号 フラ グ 
(0015) ニニ 倍 精 度 フ ラグ 
(8D: 8C) ニ X メ レジ スタ の 保存 

SUB| $BCB3 一 数 値 型 判断 ルー チン 5 一 2 一 1 参照 
$B 3 C 8 人 … 符 号 判 定 ル ー チ ン 5 一 2 一 2 参照 
$BDC 9… 符 号 反転 ルー チン 


FAC1 の 数 値 を その 型 に し た が っ て $ 0 5 4 1 番地 か ら 文 字 列 と 


し て 格納 し ます . この 際 単 精度 型 で は 7 桁 目 , 倍 精度 型 で は 1 7 桁 目 を 四捨五入 


し て 数 値 を 文字 列 に 変換 し ます . で すか ら 単 精度 型 の 実数 で は 最終 の 2 ビッ トー 
3 ビッ ト は 無視 され る 結果 に な り ま す . ここ の 数 値 を 得 た いと き は 単 精度 実数 を 


CD B 革 など で 倍 精 度 型 に する と 求 ま り ます . 一 般 に CDB 工 を 単 精度 実数 に 対 


し て 実行 し て も 無 意 味 な 数 値 が 6 桁 以降 に 出力 され る よう に 思わ れ が ち で す が , 
実は この よう に 有効 な 数 値 が 出力 (1 一 2 桁 ) され て いる の で す . 
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5 一 2 一 8 文字 列 一 数 値 変換 ルー チン 


$B506, $B50B 
機 朋 | $B506 : 倍 精度 型 を 基本 に し て 数 値 を 求め る . 
$ ゃ B50B: 整数 型 を 基本 に し て 数 値 を 求め る . 
| レジ スタ | A, B, X, U 
(D 9 : DA) = 文字 列 の 先頭 アド レス ー 1 
復帰 情報 | FAC1 王 文字 列 を 変換 し た 数 値 
(0017) =FAC1 の 型 を 表わす 数 値 
(D 9 : DA) = 数値 を 表わす 文字 列 の 次 の アド レス 
|IWORK | FAC1 
(0063) = 小数 点 以下 の 桁 数 
(0064) = 小数 点 フ ラグ 
(0069) ニニ 指 数 部 操作 用 レジ スタ 
(0015) = 倍 精 度 フ ラグ 
(0017) =FAC1 の 数 値 の 型 
(D 2 一 DD) = 汎用 読み 込み ルー チン 
SU0 日 | 省略 


解 説 |  $B506 の 電 合 , 移 0, &H, !,。 EE な どの 指定 が な いか ぎ 
り 倍 精度 型 で 数 値 が 得 ら れ ま す . 整数 型 の が あっ て も 整数 型 に は な り ま せん . 
$SB50B の 場合 整数 型 を 基本 に し て 数 値 を 求め た いと き に 使い ます 。 芝 , 錠 
0 &H, !, EE, 革 な どの 指定 が あれ ば それ に 従い ます . また 整数 の 範囲 を 越 
> た 場 谷 は 単 精 上 度 弄 (それ で も 収まら な けれ ば 佐 精 度 胃 ) で 数 値 が 求 ま り ます . 
た だ し 両方 と も EE が 「ELSE や EQV の E」 の 場合 は 単 精度 型 に 変換 せ ず , 
E が 現れ る 前 まで の 文字 列 を 数 値 と し , EE の アド レス を (D 9 : DA) に 入れ て 
マー し で し まい す げす 
EX 世 C ど など で この ルー チン を 使用 する と き は 必ず (D 9 :DA) を 一 時 退避 
し て 下さ い ( 杯 走 す る こと が あり ます ). 


っ ト 
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りー3 2 項 演算 
5 一 8 一 1 実数 の 加算 を 行う ルー チン 


| アド レス | $AF1A 
機能 | メモ リ (数 値 を 変数 テー ブル 用 数 値 で 格納 ) +FAC 1 を 実行 する . 
メモ リ と FAC1 の 数 値 型 は 同一 で な けれ ば な ら な い . 
レジ スタ | A, 日 , X,。 U 
入力 情報 | FAC1 王 加 算 する 数 値 ( 単 精度 実数 ある い は 倍 精 度 実数 ) 
(0 0 1 5) = 倍 精 度 型 の と き $ 0 0 以外 , 単 精度 型 の と き $0 0 
メレ ジス タ ニニ メモ リ (変数 テー ブル 用 数 値 で 数 値 が 格納 され て い 
る 箇所 ) の 先頭 アド レス 


メモ リ ーFAC1 と 同じ 数 値 型 の デー タ を 変数 テー プル 用 数 
値 で あら か じ め メ モリ 上 に 格納 ( 被 加算 数 値 ) 
復帰 情報 | FACT1 ー 加 算 さ れ た 結果 


WORK | FAC1, FAC2 
(0 0 15) = 倍 精 度 フ ラグ 
(0 0 8C) = 保護 バイ ト 

U B| $B1BA つ メモ リ を FAC2 へ 5 一 2 一 6 参照 

$B35F つ FAC2 を FAC1 へ 5 一 2 一 6 参照 
$ ゃ AF0 5 一 ロレ ジス タ の 内 容 だ け 切 り 捨 て 
$B0 7 4 つ B ロ レジ スタ の 内 容 だ け 切 り 捨 て 

終了 条件 | 1.7014X10 3 ニーー1.7014X1 0 38 の 午 囲 外 の と き 
Error (Overflow) を 発生 する . 


と 


解 説 | この ルー チン は メモ リ (変数 テー ブル 用 数 値 で 代入 され て いる ) に 
FAC1 の 値 を 加え ます . その 際 数 値 の 型 は 両方 と も 同じ 型 で な けれ ば な り ま せん . 

一 般 的 な 加算 の アル ゴリ ズム は 以下 の よう に な り ま す . 
A. 2 つの 数 値 の 指数 部 が 同じ に な る よう に 調整 
B. 仮数 部 の 加算 
C. 正規 化 

5・3・1 を 御覧 下さ い . 1 0 進数 の 加算 を 示し まし た . A の 操作 が ① の 操 
E, B の 操作 が ② の 操作 。C の 操作 が ③ の 操作 に 相当 し ます . 


ーー 


いら 
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好 5・3・1 10 進 数 加算 


1.5X103 士 |.3※X1|105 を 実行 する . 


) 桁 を 合わ せる . ② の 加算 を する . ③ 指 数 型式 に する . 

| 5 00 500 131500= 
+130000 +130000 |.315X1053 
還 -131500 


ドー-ーBAS TIC で は 以上 の こと を 次 の よう に 実行 し て いま す 

1) メモ リ を FAC2 へ 移し ます . で すか ら こ の 後 で は FAC2+FAC 1 を 実 
行 し て いま す . また ここ で は $ 0 0 8B 番 地 の bz を 下 の 表 の よう に セッ ト し 
ます 、 


1 ーー $ 8 B 番地 b> 


(2) FEAC1 三 0 カ his な り ま すか ら FAC2 を EAC1 へ 代入 
し て 終り ます . 他 の と き は WP 
(3) FAC2 テ 0 な ら 5FAC1 が 倫 え に な り ま すか ら 何 $ せ ず に 終り ます . 他 の 
4) を 実行 し ます . 
(4) PP この 結 に よっ て FAC 
1 の 桁 キ を ド AC2 に 合わ せる か , FAC2 の 桁 FAC 1 に 合わ せる か の 場合 分 
け を 以下 の よう に し ます (ここ で は 前 に 述べ た A を 行っ て いま す ). 
人 hh 
FAC1 の 指数 部 が FAC2 の 指数 部 と 同じ に な る まで FE AC 1 の 仮数 部 を 
右 へ シフ ト し ます ( せま お 
(0 0 7C) に (0 0 8A) の 値 を 代入 し ます (結果 の 符号 部 を FAC2 の 
値 と し ます ). 次 に (0 0 82) の 値 を (0 0 74) に 代入 し ます ( 結 朱 の 指 
数 部 を FAC2 の 値 に し ます ). 
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(0 FAC1 の 指数 部 が FAC2 の 指数 部 よ 間 生 ベネ 
FAC2 の 指数 部 が FAC1 の 指数 部 と 同じ し に な る まで 仮数 部 を 右 へ シフ 
3 まま の 本 細 生 全便 ま な 5 本 伯 す 
結果 の 符号 部 と 指数 部 は F A C 1 の も の と し ます . 
0 FAC1 の 指数 部 と FAC2 の 指数 部 が 等 し いと き 何 も し ませ ん . 
5) 1) で 求め た な $ 0 0 8B 竹 地 の 内 容 と (4) の Gi) 合 )(⑪ の 条件 に より 場合 分 け を 
に し 0 
i) $008B 番 地 の b?7 が 0 の と き 
仮数 部 の 足し 算 を し ます . 桁 あ ふれ が 出 た 場合 は , 結果 の 指数 部 に 1 を 加 
えて 仮数 部 を 右 へ 1 ビット ずら し ます 
(ii $0O08B 番 地 の b?7 が 1 の と き 
〈① (4) で の と き (FAC2 の 指数 部 が FAC1 の 指数 部 より 大 きい と き ), 
FAC1 の 仮数 部 の NEG (2 の 補 数 ) を と り , それ に FE AC 2 の 仮数 部 
を 加え ます (FAC2 の 仮数 部 か ら FAC1 の 仮数 部 を 引く ( 例 2 参 早 )). 
G) (4) で (Gi) の と き (FAC1 の 指数 部 が FAC2 の 指数 部 より 大 きい と き ) 
FAC2 の 仮数 部 の NEG (2 の 補 数 ) を と り , それ に FAC1 の 仮数 部 
を 加え ます (FAC1 の 仮数 部 か ら FAC2 の 仮数 部 を 引く ). 
C) ④⑭) で 上 の と き (FAC1 の 指数 部 と FAC2 の 指数 部 が 等 し いと き ) 
FAC2 の 仮数 部 の NEG を 取り , FAC1 に 加え ます (FAC1 の 仮数 
部 か ら FAC2 の 仮数 部 を 引き ます ). FAC2 の 仮数 部 が FAC1 の 仮数 
部 より 大 きい と き は , 符号 の バイ ト (0 0 7 C) を 反転 きせ て , 引い た 結果 
の NEG を と り ま す ( 例 3 参 早 ). 
6) 正規 化し ます . 


一 応 の アル ゴリ ズム は 述べ まし た が これ で は まだ よく わか ら な いと 思い ます 
の で 。, 2 一 3 例 を あげ て 説明 し ます . 簡単 に する た め 仮 数 部 を 4 ビッ ト と し ます . 


< 例 1> (65) の (Gi) の 場合 (FAC1 と メモ リ が 同 符 号 ) 
H) 選 骨 1 三 0、10 1 0 メッ ウ S 
FAC2 テ 0.1 110X2?2 (メモ リ の 価 ) 
FAC2 の 指数 部 = ニ 5 こ 2 テニ FAC1 の 指数 部 で すか ら 指 数 部 を FAC2 
に 合わ せま す . 
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FAC1=0.0001010xX2? 

1 吉林 ま 全 に 
この と き 結 果 の 符号 と 指数 部 は FAC2 の も の と な り ま すか ら 結 果 は 以下 の よ 
Ss リ 庫 Ng 

0.1111X2?5 (4 ビッ ト 以 下 は 丸め る ) 


20 FEAGOI ラ 0。、1010X29 
FEAC2= テ ー0. 1 1 10X2?( メ モリ の 値 ) 
(1) の 場合 と 同様 に 符号 は FAC2 の 符号 部 が 決定 し ます か ら 
OUI 凡 邊 228 ZI 0 


(3) FEFAC1=0.1010xX23 
FAC2=0.1000X2? (メモ リ の 値 ) 
今度 は 桁 あ ふれ する 場合 で す . 仮数 部 , 指数 部 は 以下 の よう に な り ま す . 
1.0010x25 
最初 の 1 は 桁 あ ふれ に な り ま す . で すか ら 下 の よう に 記し ます . 
IO 0 ※ 2 


< 例 2> (5) の (の ⑦ の 場合 FAC1 の 指数 部 <FAC2 の 指数 部 
FAC1 と EAC2 が 異 符号 の 場合 
RAOC1 三 0. 1000X ク 6 
FEAC2= テ ー0.1000X2* (メモ リ の 値 ) 
この 場合 FAC2 の 絶対 値 は 必ず FAC1 の 絶対 値 より 大 きく な り ま すか ら 
符号 は 必ず FAC2 の 値 に な り ま す . また 仮数 部 は FAC2 か ら FAC1 を 引 
ぃ た 値 に な り ま す . つま り (一 4) 填 2 を 一 (4 一 2) と し て いる 
と な り ま す . それ で は 実際 に 行っ て みる こと に し ます . FAC1 の 指数 部 を F 
AC2 に 倫 わ せま す 
生生 まき 
FAC2= テ ー0.1000X2 
FAC 1 の 仮数 部 の NE を と り ま す . 
FAC1 の 仮数 部 の NEG=0.1100 
(初め の 0 は FAC1 内 部 に あり ませ ん の で 値 は 変わ り ま せん ) 
FAC2 の 仮数 部 と FAC1 の 仮数 部 (NEG し た も の ) を 加え ます . 
0. 0100 実際 に は 桁 あ ふれ (最初 の 0 の 所 に 1 が 立つ ) が あり ま 


2J7 


す が , NEGC を と っ て 加え た と き は 無視 し ます . 
に な り ま すか ら 結 果 は 


仮数 部 と も に FAC2 の 値 に 


指数 部 ・ 
と 求 ま り ます . さら に 正規 化し て 


呈 浴 。0 100X29 
ー0.1000X22 と な り ま す . 


( の 場合 も 同様 に し て 求め る こと が で きま す . 


< 例 3> (5) の (i0 の (9 の 場合 FAC1 と FAC2 が 異 符号 で 指数 部 が 等 し いと 


さき 
(1) FAC1 の 仮数 部 >FAC2 の 仮数 部 の と き 

記 導 61 才 W。 1 100X ろ 

FAC2= テ ニー0.1000X23 (メモ リ ) 
FAC2 の 仮数 部 の NEG を と り ま す . 

0.1000 (最初 の 0 は FAC の 内 部 に あり ませ ん ) 
FAC1 の 仮数 部 に 足し ます . 

0.0100  ( 桁 上 が り を 無視 し ます ) 
符号 を FAC1 の 符号 (この と きも EAC1 の 絶対 偽 が FAC2 よ り 大 きい 


た め ) に 決定 し ます . 
0.0100xX23 を 正規 化し て 


0.1000X22 と な り ま す . 


(2) FAC1 の 仮数 部 く FAC2 の 仮数 部 の と き 


FAC1=ー0.1000X2* 
ド AC2 テ 0. 


FAC2 の 仮数 部 の NEG 
0.0100 (最初 の 0 は NEG に は 関係 あり ませ ん ) 


FAC1 の 仮数 部 と FAC2 の 仮数 部 を 邊 し ます . 


0.1 1 0 0 
この 値 の NEG を と り ま す . 

0.0100 (この 値 が 結果 の 仮数 部 と な る ) 
符号 は FAC1 の 反対 つま り FAC2 の 値 に な り ま す (FAC2 の 絶対 値 が 
FAC1 の 絶対 人 穫 よ り 大 きい ). 結果 は 以下 の よう に な り ま す . 

ー0.0 100X23 を 正規 化し て 


ー0.1000X22 66 
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5 一 3ー2 実数 の 減算 を 行う ルー チン 


$AF11 


機能 | メモ リ ( 数 値 を 変数 テー ブル 用 数 値 で 格納 ) か ら FAC 1 を 引く . 
メモ リ と F AC 1 の 数 値 型 は 同一 で な けれ ば な ら な い . 
| レジ スタ | A, B, X, U 
FAC 1 ー 減 算 す る 数 値 ( 単 精度 実数 , あ る い は 倍 精度 実数 ) 
(0 015) = 倍 精度 型 の と き $ 0 0 以外 , 単 精度 型 の と き $ 0 0 
メレ ジス タ ニニ メ モリ (変数 テー ブル 用 数 値 で 数 値 が 格納 され て いる 
箇所 ) の 先頭 アド レス 
メモ リ ーFAC1 と 同じ 数 値 型 の デー タ を 変数 テー ブル 用 数 
値 で あら か じ め メ モリ 上 に 格納 ( 被 減算 数 値 ) 
| 復帰 情報 | FAC1 = 減算 され た 結果 
FAC1, FAC2 


(0015) = 倍 精 度 フ ラグ 


(008B) = 表 5・3・1 参 照 
(0 0 8C) = 保護 バイ ト 

|S U B| $B1BA つ メモ リ を FAC2 へ 5 一 2 一 6 参照 
$AF1D 一 FAC2 か ら FAC1 を 引く 

| 終了 条件 | 結果 が 1.7014X1038- 一 1.7014X1 0 88 の 範囲 外 の 


と き は Error (Overflow ) を 発生 する . 


一 般 に 減算 は 被 減算 数 値 を X, 減算 数 値 を Y と する と 次 の よう に 加 
児 (CK すこ と が の きき ま ず 。 

XーY ニ テーX 十 (一 Y) 
つま り Y の 稚 号 を 変え て 加算 すれ ば よい わけ で す . ドーBASIC で は X が メ 
モリ , Y が F ド AC 1 と な っ て いま す . で すか ら メ モリ を EAC2 へ 移し て か ら $ 
007C 番 地 (FAC1 の 人 符合 部 ) を 反転 させ , その 後 $ 0 0 8B 番 地 を 反転 き 
せ , 加算 ルー チン を 呼び 出せ ば 減算 を 行い ます . 


※ $008B 番 地 を 反転 させ る の は , 表 5・3・1 よ り 求 まる $008B 番 地 
の 値 を , $ 0 0 7C 番 地 を 反転 させ る 前 の 値 に よっ て 求め て いる か ら で す . 
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5 一 3 一 3 実数 の 乗算 を 行う ルー チン 


$BOEE 


メモ リ ( 数 値 を 変数 テー ブル 用 数 値 で 格納 ) と F AC 1 の 乗算 を 実行 
する . メモ リ と FAC 1 の 数 値 型 は 同一 で な けれ ば な ら な い . 


レジ スタ 


WORK 


「 っ りり B 


以下 の 計算 


いら 


40 


A, B,。 X,。 U 

FAC1 ー 乗 算 す る 数 値 ( 単 精度 実数 , ある い は 倍 精 度 実数 ) 

(0 0 15) = 倍 精 度 型 の と き $ 0 0 以外 , 単 精度 型 / と き $00 
X レ ジス タ デメ モリ (変数 テー ブル 用 数 値 が 格納 され て いる 箇所 ) 


の 先頭 アド レス 
メモ リ ーFAC1 と 同じ 数 値 型 の デー タ を 変数 テー ブル 用 数 
値 で あら か じ め メ モリ 上 に 格納 ( 被 乗 算数 値 ) 
FAC1 ーー 乗算 され た 結果 


FAC1, FAC2, FAC3 

(0 0 15) = 倍 精度 フラ グ 

(0 0 8B) ここ で は 演算 結果 の 符号 バイ ト 

(0 0 8C) 保護 バイ ト 
$B1BA つ メモリ を F ビ AC2 へ 5 一 2 一 6 参照 
$B1DF… 符 号 部 と 指数 部 の 処理 

$B1 3 6 各 桁 の 乗算 を 行う 

$B 1 3 A つ 同上 
$B2EC つ FAC3 を FAC1 へ 

$ ふ AF 9 7 一 正 規 化 ルー チン 5 一 2 一 3 参照 
結果 が 1.7 014 メ 108 一 一 1.7014X1 0 38 の 範囲 外 の と 
き Error (Overflow) を 発生 する . 


乗算 の 計算 は 被 乗 算数 値 を X。 乗算 数 値 を Y と 下 の よ うに お いて 、 
X テ 2" *※V Y テ 2" ※*※U (V と U は 仮数 部 ) 


を 実行 し ます . 


信二 一 2 ロ nmk V※ 日 


ドー-BAS TIC で は 以上 の こと を 次 の よう に 実行 し ます . 
(1) 演算 結果 の 指数 部 と 人 符 編 の 決定 

$0074 番 地 (FAC1 の 指数 部 ) に (n 十 m 十 $80) を 代入 し ます . 
これ は 結果 の 指数 部 を 求め て いま す . 

次 に 結果 の 符号 部 を 求め る の で す が , これ は FAC2 へ 数 値 を メモ リ か ら 代 
入 す る 際 に $008B 番 地 が 表 5・3・1 の よう に 求 ま り ます か ら こ れ を 利用 
し ます . つま り 二 つの 数 値 が 異 符号 の と き 負 (b7 に 1 が 立つ ). 陸 衝 4 
き 正 (bz に 0 が 代入 され る ), と 決定 し ます . この 値 を $ 0 0 7 C 番 地 に 
れ ま す . これ で 符号 と 指数 は 求め られ た の で 次 に 仮数 部 を 求め . これ を FAC 
1 の 仮数 部 に 代入 すれ ば 人 答え が 求 ま り ます . 


(2) 仮数 部 の 計 邊 
6809 に は A レ ジス タ の 値 を 掛け 合わ せ て , D レ ジス タ に 人 答え を 入れ る 
MU 上 上 と いう 命令 が あり ます か ら 比 較 的 楽に (1 0 進数 の 掛け 覧 の よう に ) 詩 


2 を 見 て 下さ い . 1 0 進 の 計算 の 仕方 を この よう に 書い て み ま す . 
4 ・ 3 を 見 て 下さ い . これ が 仮数 部 の 演算 で す (ここ で は 単 精度 型 
を 扱い まし た ). 1 つの バイ ト が 1 0 進数 の 1 桁 に 相当 し ます . つま り 3 桁 の 
算 を 行っ て いる の と 同じ に な る わけ で す . 具体 的 に は 次 の よう に し ます . 『A 
C 1 の 下位 バイ ト に FAC2 の 下位 バイ ト を 掛け 合わ せ て すぐ 下 に 書き ます (も 
ちろ ん コン ピュ ー タ で は FAC 3 上 に 書 時 本 トド で A し 
2 の 下位 バイ ト を 掛け 合せ 前 の 値 の 1 桁 ず すら し た と ころ に 書き ます . この よう 
に し て 図 の よう に すべ て の バイ ト を 掛け 8 その 結 朱 を すべ て 邊 
し 合わ せ て ,。FAC1 の 仮数 部 の 上 位 か ら つ め て いけ ば 乗算 の 仮数 部 が 求まる 
0 で す 。 
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8 7 

X5 6 
ーー 42…7XB 
この 値 を すべ 1 
※ し まず 7 
40  …8X5 

間 】 の で 


図 5・3・3 FAC の 仮数 部 の 乗算 


了 
PAO Iivmr 


この 中 に ある |008sx0077| 
数 値 を すべ て 
足し て 答え を 
求め る . L0085x0076| 
10084x0076| 
|0083x0076| 
lO0085x0075| 
lO0084x0075| 
L0083x0075| 


し _ 上 時 人 穫 人 征 0] 


結末 を FAC | の 仮数 部 の 上 位 か ら つ め て いき ます . 


※ | |…1 バ イト を 示し ます . 
し ーー タバ イト を 示し ます 」 


わく の 中 の 数 字 は アド レス を 示し ます . $ は 省略 し まし た . 


5 一 3 一 4 実数 の 除算 を 行う ルー チン 


| アド レス | sgz84 


機能 | メモ リ (数 値 を 変数 テー ブル 用 数 値 で 格納 ) を FAC 1 の 値 で 割る . 
メモ リ と FAC1 の 数 値 型 は 同一 で な けれ ば な ら な い . 
| レジ スタ | A, 日 , X, U 
入力 情報 | FAC1 除算 する 数 値 ( 単 精度 実数 。 ある い は 倍 精度 実数 ) 
(0 0 15) = 倍 精 度 型 の と き $ 0 0 以外 , 単 精度 型 の と き $ 0 0 
X レ ジス タ ニテ メモ リ ( 変 数 テー ブル 用 数 値 が 格納 され て いる 箇所 ) の 
先頭 アド レス 
メモ リ ーFAC1 と 同じ 数 値 型 の デー タ を 変数 テー ブル 用 数 値 
で あら か じ め メ モリ 上 に 格納 ( 被 減算 数 値 ) 


復帰 情報 | FACI = 減算 され た 結果 
|IWORK | FAC1, FAC2, FAC3 


(0 0 15) = 倍 精度 フラ グ 
(0 08B) = 結果 の 符号 
(0 0 8C) = 保護 バイ ト 
|S UB| $B1BA つ メモ リ を FAC1 へ 5 一 2 一 6 参照 
$B1DF… 指 数 部 及び 符号 の 演算 
$B20 3-Error (Overflow) 発生 
$B 2 2 1 Error (Division By Zero) 発生 
| 終了 条件 | (1) 結果 が 1.7 014X10 8 一 一 1.7014X10 38 の 都 囲 外 
の と き Error (Overflow) を 発生 する . 
(2)FAC1 が 0 の と き ,Error(Division By Zero) を 発生 する . 
解説 
か と ※ 


FAC1 の 値 を Y, メモ リ の 値 を 区 と し , 区 , Y を 下 の よ うに お い 


ii 


X 三 2 ※V Y 三 2 豆 ※ ま けり (U と V は 仮数 部 ) 
以下 の 公式 を 用 いて 求め ます 。 
4 ーー 一 1 ー Iil V 
マー 2 ネー 


F ド 一 BASIC で V プ U を 計算 する の に 引き 戻し 法 (実際 に は 少し 避 う ) と い 
う 演算 方 法 を 用 いて いま す . この 方 法 を , 簡単 に する た め 8 ビ ッ ト の 数 を 4 ビッ 
ト で 割る 場合 に つい て 図 5・3・4 を 使っ て 説明 し ます . 
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(1) の よう に 割ら れる 数 (1 1 1 0 1 1 1 1 ) と 割る 数 (100 1) を 1 0 進 
数 の 割り 和 濾 の よう に 書い て み ま す . 次 に (2②⑫ の よう に 割る 数 を 左 か ら 割 られ る 数 
の 桁 に 合わ せ て その 下 に 書き ます . 次 に (3) の 点線 で 囲ま れ た 部 分 の 上 の 数 と 下 の 
数 を 上 比べ ます . 上 の 数 か ら ト eo 人 (上 の 数 の 方 が 大 きい ) と き は 最終 桁 の 
上 に 1 を た て ます . 引け な いと き は 0 を 書き ます . この 場合 は 引け ます か ら (4 の 
あま の に 1 を WW て ます 。 まし て 引 人 拉 を 浦佐 い 水 雪代 が TS 村 ま は 


鐘 5・3・4 除算 の 方 法 


) 
I001)1110111I 
1001 
MM っ 4) 
ーー 点線 で 囲ま れ た 」 
ンー ニー ニーー ン て 
ー 7 WE 部 分 を 比べ る . " 
100 骨 IIIOWIIII Il00JIli0Oliil 
l ! この 場合 は 上 か 
、100M 了 0MN0NN 1001 
1 ら 下 が 引け る . ーー 
gl 101 
(5) (6 
l | | 
II101I 100I)ili0lill 
Il0011 100I | 
101I まま | か 
1001 LO0OI ) か ら | を 立て る . 
010 
| | 
「 110 1 0 
1001 0 | 
101Il 01l 
100I 001 
「01 | 今度 は 引け な い . この 010 
00 1 | と き は 0 を 立て 上 の 数 1001 
10 1 を 何 も せ ず に 下 に 書く . 0101Il _ 
、、。 [同じ こと を する 


※ 致 値 は すべ て 符号 な し 2 進数 で す . 
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の 
く 


1) 


間 昌 多 の 1 ビッ ト を 5) の よう に 下 へ ずら し , 引い た 結 時 の 柄 へ 意 き ます . 
こ で また (3) と 同様 に し て 上 の 数 と 下 の 数 を 比較 し ます . 今度 も 引け ます の で (6 
う に 1 を 立て , 引い た 人 答え を また 下 に 書 きま す , そし て また 同じ よう に 除算 
れる 数 の 1 ビッ ト を 下 へ ずら し , 引い た 結 示 の 松 へ 書き ます . そし て (7) の よう 
9 II この で きま せん 。 で すか がら この 
0 , 倫 え を 求め る 所 に 0 を 立て ます . この よう な こと を 
り 返 し て 行え : 符 が 求 ま より ます 。 最 的 に は 図 5・3 な の よう つ に 人 な り ま すず , 


凶 5・3・5 除算 の 結 迷 


|「1010 
| 001= I001J11101IIII 
| | 101|1 1 | 1233 100 | <= 引 ける 
|「1010=26 ーー 1011 
101=」 「001 引け る 
0101 
239ー9 テ 2 5……5 1I001 < て 引け な い 
101l 
1001 引け る 
10 
1001 王 引け な い 
101 余り 
HVC に NM 
本 ). 結果 の 待 号 を 


表 5・3・1 の $ 0 0 8B 番 地 の 値 に し ます . 5 ia 


2) 


014 メ 10 や ー1. 7014X103 の 範囲 外 に な る と き は Overflow を 発生 
まま 


Y ( ド AC1) が 0 の 電 合 は , Division By Zero を 発生 し ます . 
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(3) 仮数 部 を 求め ます . 
ここ て で 求め る 仮数 部 を ZZ」。 ZZ2 ZZ3 ZZ4 ……| ます X282/ 
V (メモ リ の 仮数 部 ),、 U (FAC 1 の 仮数 部 ) を 比較 し て 2 通り に 分 け ま す . 
i) V>= テ U ( 図 5・3・4 で 引け る 場合 ) 
Z, = テ 1 ( 商 の 所 へ 1 を 立て る ) 
V= テ VーU と お く ( 図 5・3・4 の ⑬⑭) を 実行 ) (④ へ 飛ぶ . 


( V く U ( 図 5・3・4 で 引け な い 場 谷 ) 
Z,」 =ー0 (4) へ 飛び ます . 
Z, が 全部 求め られ た と き は (3) で 終り ます . 


(4) V テ 2*V を 実行 し ます . 
i ニ ii 十 1 と し て (3⑬③ に 飛び ます . 


(※1)(※2) に つい て 

(※1) で $ 1 を 足す 理由 は 次 の 通り で す . 実は (※2) で は Zi. Z。2 Z3 で 
な く 。 0。 乙 」 乙 2 2Z ぅ 3 の よう に 求め な けれ ば , FAC に 代入 し た と き に 1 桁 分 
ずれ て し まい ます . これ を 補正 する の が $ 1 を 足す こと な の で す . 例え ば 0. 
1 を 0. 1 で 割る と 答え は 1. 0 と な り ま す が こ れ を その まま F AC の 仮数 部 に 
つめ て し まう と コン ピュ ー タ は 1. 0 を 0. 1 と 判断 し て し まい ます . この 一 桁 
分 の ずれ を な くす の が $ 1 と いう こと な の で す . 


※ 引き 戻し 法 に つい て 
大 0 コン ビュー タ 人 な る で は V と り を 比 隊 ずる ろ る と ころ で VーU る 休 っ て いま す 
その 結果 か ら 引 ける か どう か を 判断 し ます . ここ で 引け な いと き に は も と の V 
を 求め る の に VーU 十 り と いう よう に U を 足し 直す わけ で す . つま り 引 いて か 
ら も と に 戻す の で 引き 戻し 」 と いう 名 前 が つい た の で す . 
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5 一 3 一 5 整数 の 加算 ・ 減 算 を 行う ルー チン 


遇 


$BD52, $BD4 4 
$BD52:FAC1 に FAC2 を 加え る . 
$BD44 :FAC1 か ら FAC2 を 引く <. 

A, 日 , U, X 

FAC1 = 被 加 ( 減 ) 算数 (整数 型 ) 

FAC2 ー 加 ( 減 ) 算数 (整数 型 ) 
(0017) =$0O2 (整数 型 ) 

FAC1 ニ 三 結果 (整数 の 範囲 を 越え た 場合 は 単 精度 型 に な る ) 
(0 0 1 7 ) = ニ FAC 1 の 数 値 型 を 示す 値 

FAC1, FAC2 

$BD4A つ D レ ジス タ を (0076:0O0O77) に 入れ る 
$BD 4 A 一 実数 型 の と き に X レ ジス タ の 示す アド レス に 飛ぶ 
$AF 1 D 一 実数 型 の 加算 

$AF 1 4 一 実数 型 の 減算 

$BCFF… 整 数 を 単 精度 実数 べ へ 5 一 2 一 5 参照 
$B380 つ FAC1 を FAC2 へ 5 一 2 一 6 参照 

$BD0 1 一 整数 を 単 精度 実数 へ 

結果 が 一 32768-327 6 7 の 二 囲 外 の と き は , 単 精度 型 の 演 
算 を する . 


この 演算 は 数 値 が 2 の 補 数 表現 で 代入 され て いる た め 、 符号 は 考 ぇ 


す に その まま 和 足し算 や 引き 算 を 行っ て いま す . さら に 6 8 0 9 で は 2 バイ ト の 演 
算 ADDD や SUBD が あり ます の で . 非常 に 簡単 な プロ グラ ム で 行っ て いま す . 
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5 一 3 一 6 整数 の 乗算 を 行う ルー チン 


$BD78 
機 能 | FAC1 と FAC2 を 乗算 を 行う . FAC1 と FAC2 は 整数 で な 
けれ ば な ら な い . 
| レジ スタ | A, BB, X, U 
| 入力 情報 | FAC1 ーー 整数 ( 被 乗 算数 値 ) 
FAC2 ー 整 数 (乗算 数 値 ) 
(0017) =$0O 2 (整数 型 ) 
FAC1 = 結果 (整数 型 あ る い は 上 単 精度 実数 ) 
(0 0 1 7 ) = 結果 が 巣 精度 型 の 場合 $ 0 4 が 入る ( 他 は $ 0 2) 
|IWORK | FAC1, FAC2,FAC3 
(0 0E2) = 掛け る バイ ト の 保存 
$BD 5C 一 整数 を 単 精度 実数 へ 変換 し て 演算 ルー チン へ 
※SBCFF 整 数 を 単 精度 実数 へ 5 一 2 一 5 参照 
※$B380 つ FAC1 を FAC2 へ 5 一 2 一 6 参照 
以上 の ※ の ルー チン は $BD5C 内 部 に あり ます . 
$ BDD 9- 負 の 数 を 正 の 数 へ 
$BDB 9 一 結果 が 3 2 7 6 8 に な っ た と き の 処 理 
$BE0 3 一 FAC の 符号 を 反転 (整数 型 ) 
$BD2 9 一 実数 型 の と き X レ ジス タ が 示す 番地 へ 飛ぶ 
| 終了 条件 | 結果 が 整数 の 扱え る 範囲 を 越え た 場合 は 実数 の 計算 を する . 


整数 型 想 の 乗算 は 実数 の 仮数 部 の 乗算 の 仕方 と ほぼ 同じ で す . 

し か し , 整数 型 の 乗算 で は 結果 が 2 バイ ト を 越え て し まう 場合 が あり ます . この 
と き は FAC1 と FAC2 を 単 精度 実数 に 変換 し て 実数 の 乗算 を 実行 し ます . 
で は 図 5・3・5 を 簡単 に 説明 し ます . まず FAC1 の 値 と FAC2 の 値 を 止 
の 数 に し ます . 後 は 図 の よう に し て 1 0 進数 と 同様 に 1 バイ ト を 1 0 進数 1 桁 と 
考え て 掛け 合わ せ て いき ます . その 結 示 を 下 に 書き , 下位 か ら FAC1 に つめ て 
いき ます (ここ が 実数 の 仮数 部 と 違い ます ). 
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《 例 ? 


0 0 


図 5・3・5 整数 の 乗算 


すべ て 中 し 合わ 
せ て 下 に 書く <. 


0077X00O85 
0076X00O85 
0077X00O84 


0076X0084 


ここ の 値 が (0076: 


この 点線 より 上 位 に 数 値 」 
が ある と き は 、 実 数 化す 


る . 


ーー 7 ト oe 


し 7 ト oe 


この 中 の 数 値 は アド レス を 示す . $ は 省略 す る. 


FAC1|=S500A0O テ |I60 
FAC2=ー$5010B テ 2Z67 


00 AU 
0 | UB 
06 EU 
00 0UU 
00 AU 
0 U 
A6 EDU 


FACI 


ゃ SA6E0O テ 42720 と な る . 


0077) 
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5 一 3 一 7 整数 の 除算 ・ 余 り を 求め る ルー チン 


$ も BE0C, $BE33 
$BE0C:FAC1 を FAC2 て 割っ た 商 を 求め る . 
$ も BE33:FAC1 を FAC2 て 割っ た 余り を 求め る . 
A, 日 , X,。 U 

FAC1 ー 被 除 数 (整数 型 ) 

FAC2 ー 除 数 (整数 型 ) 

(0017) =$0O2 (整数 型 ) 

A レ ジス タ =$00 7 6 番地 の 値 (余り を 求め る と き ) 


精度 型 と な る 〕 
(0 0 1 7 ) = 結果 が 単 精度 型 の と き は $ 0 4 が 入る ( 他 は $ 0 2) 
FAC1, FAC2 
(0 08B) = 結果 の 符号 
$ BDD 9… 符 号 の 処理 , 引数 
$BE 2 2 一 演 算 ルー チン 
$BDB 2 一 演算 後 の 処理 : 整数 一 実数 な ど 
$BE0 1 一 FAC の 符号 を 反転 (整数 型 ) 
FAC2 が 0 の と き は Error(Division By Zero) を 発生 する . 


の 退避 


_ 説 | 実数 の 項 で も 述べ まし た が FーBAS TIC で は 除算 に 引き 戻し 法 
いう 方 法 を 用 いて いま す . し か し 整数 型 の 場合 は 実数 型 と 異な り 完 全 な 引き 戻し 
法 を 実行 し て いま す . で は , 正 の 整数 に つい て の 引き 戻し 法 の 方 法 を 示し ます . 
5 一 3ー4 の 方 法 と 比較 し て 下さ い . 

間 単 に , 被 除 数 を 8 ビッ ト , 除 数 を 4 ビッ ト の 正 の 整数 と 考え ます . 図 5・3 
・6 を 御覧 下さ い . (④) ま で は 図 5・3・4 の (6) ま で と ほとん ど 同 じ で す が 図 5 ・ 
3・4 で は 上 の 数 と 下 の 数 を 比較 する の に 対し , 図 56・3・6 で は 何 も 考 え ず に 
上 の 数 か ら 下 の 数 を 昌和 (5) 一 (6) に か け て が 実数 の と き と の 暫 い で 
す が , こ の と き は 引い た 数 が 負 に な っ て いま す の で 人 答え に 0 を 入れ , 除 数 を 足し 
0 
巡 に ドーBASTIC 上 で の 簡単 な アルゴリズム を 述べ ます . 
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FAC1 = 結果 (整数 型 ) (結果 が ( 十 3 2768) この と き は 単 


好 5・3・6 


() (2 
I001I)I1I1I0IIII 旨 導 用 半 便 下 下 利 
1001 
101 
(4) | | 
3 デー ンー 図 5・3 ・4 と 違っ て 1001)1110111L 
1001 有 il110I1111 ここ で は 上 か ら 下 を 引 
M00 リ < この 場合 も 正 な 
10 1 の で | を 上 に 
ii < 本 
1, 負 な ら 0 を 上 に 書く 
(この 場合 は 正 で ある 
か ら | を 書く ). (6) 110 ェ 一 前 の 値 が 負 な の で 0 
(5) 1 1 IO001IJ1IIOIIII を 入れ る . 
IO001IJilI0OIIIl 語り 還 : 半 細 較 
人 101I 
101Il 1001 
1001 010I 
者 ョ | く 1001 ここ の 値 が 負 の と き 
1001 この 瑞 合 は 上 か ら 1 は 除 数 を 定 し 直す . 
も 9 で 。 ーー ueda ーー ニーーーーー 
と に な る の で , 負 0 
の 値 を 直し て いる . 
(8) II1010 
(7) あと は 同じ 要 領 で 人 答え を 求め る . DIET ド 生 ボ IT ド 
100I 
101I 
1001I 
0101 
1001 
1100 一 負 の 数 で ある . 
寺 100I 
衣 ま 陳 ま | 
100I 
10 1 
100 
100 0 一 負 の 数 で ある . 
十 1001 
10 1 余り 


2 っ 1 


(1) $ 0 0 8 B 番 地 に 演算 結果 の 符号 を 入れ ます (FAC1 と FAC2 の 人 号 を 
比べ 異 付 号 な ら b7 に 1 を 入れ 同人 答 飼 な ら 0 を 入れ ます ). 


(2) FEAC1 と EAC2 の 絶対 令 を と り ま す . 


(3) 引き 戻し 法 に より 絶対 値 の 商 と 余り を 求め ます . 


(4) $008B 番 地 や $O0 07 6 番地 の 内 容 に よっ て 商 と 余り の 符号 を 決定 し ま 


Ni 


お 3③) で 一 32768 ブ ノー1 を 実行 する と FAC に は 上 単 精度 実数 と し て 答え が 
ます 
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り 


ご 
利 


フ 


一 4 単項 演算 


以下 に あげ る ルー チン は 単項 演算 (引数 が 一 つの 関数 ) で す が , 前 部 に ある 
IN, COS, TAN, EXP, SQR, LOG, ATN は 単 精度 型 の 場合 し か 
用 で きま せん . 

次 に これ ら の 単項 演算 の 簡単 な 使い 方 で , 使い 方 に よ に っ て は か な り 高 速 に 動く 
ログ ラム の 一 例 を あげ て お きま す . 


〈USR 関 数 の 使い 方 > 


け ) 


上 に 移る と FAC1 の 値 が そ RK」S 


単項 演算 と USR 関 数 《 例 12 
U SR 関数 は , 例 1 の よう 100 INPUT X 
な BAS1IC プ ログ ラム を 実 200 DEF USRO=&H500OO 
行 し た 場合 . X を マシ ン 語 の 300 Y= テ USRO (XX) 
メモ リ 上 に 保存 し た 後 $ 50 
0 0 番地 か ら の マシ ン 語 ブロ < 例 2> 
グラ ム を 実行 し ます (F 一 B JsSR | | 
AS1IC 文 法 書 Pー3ー42 RTS 
参 曲 ). 
この と き 和 注意 し て いた だ き < 例 3> COS を 行う 
たい の は 引数 が 数 値 型 の 場合 JSR $BE60 $ 5 0 0 0 番地 よ 
FAC1 に 格納 され , $ 0 0 RTS は 
1 7 番地 に 数 値 型 が 代入 され 
る と いう こと で す . し か も R < 例 4> SIN を 行う 
TS な ど で 制 御 が BASIC JSR $BE6G6(6 $ 5 0 0 0 番地 よ 
の まま Y に 代入 きれ ます . で 
すか ら 例 2 の 囲み の 中 に , こ ※ マ シン 語 は BASIC を 動か す 朋 に 入れ て お 
の 節 で あげ る サブ ルー チン の さき ます. 
RI ウズ の 代 A す MEU SR 
0 (X) が その 関数 に な る わけ で す . 例 3 で は USRO(X)=COS( 多 ) と な り , 
例 4 で は USRO(X)= ニ SIN(X) と な り ま す . 


た だ し , 入力 情報 の 数 値 型 が 引数 と 一 致し て いな けれ ば な り ま せん . で すか 
ら 例 3 で X の 代り に X$ な ど は 使え ませ ん . 
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(2②) 関数 の 高速 化 

1) の 応用 に な り ま す が , 例 5 の 
よう な こと を USR 関 数 で 行い た 
い 場 合 は , 例 6 の プロ グラ ム を 書 
き , その 後 例 1 の BA S I C プ ロ 
グラ フ ム を 実行 すれ ば Y に 結果 が 代 
入 さ れ ま す . 

つう まり 。 USRO (X) 51 
N (COS (TAN (XX) ) ) と 
2 の 42 けり で す 

これ ら の プロ グラ ム は 単項 演算 
の 計算 回 数 が 多い ほど , 単 に BAS 


IT C を 使う より も 高速 に な り ま す . 


さら に 例 7 の よう な 関数 も 5 一 
3 や 5 一 2 の サブ ルー チン を 
利用 し て 例 8 の よう に で きま す . 
に で 中 剖 し で て いた だ た だ きた い の は 
数 條 型 で , 入力 情報 や 復帰 情報 を 
十分 理解 し た 上 で 行っ て 下さ い 、. 
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〈 例 5 > 
SIN (COS (TAN (XX) ) ) 


例 6> 
JSR $BEB1] 
JSR $BE6 0 
JSR $BE66 
R 芽 S 


《 例 7> 
SIN (X 十 COS (X) ) 


く 例 8 > 
LDX $6000 
JSR $B337 
JSR $BE60 :COS 
LDX $6000 
LDA 半 $0O0O |] 倍 精度 フラ グ を 
STA $0015) $00 に する 
JSR $AF1A 
JSR $BE66 :SIN 
RTS 


$B33 7 : メ モリ に EAC1 を 保存 

$AF1A: メ モリ と FAC1 の 加算 

※ マシ ン 語 は $5 0 0 0 番地 か ら 代 入 し ま 
す . 


5 一 4 一 1 多項式 演算 を 行う ルー チン 


$BB94,$BBA3 

機能 | 引数 の 多項式 演算 を 実行 する . 

| レジ スタ | A, 日 , X, U 

| 入力 情報 | X レ ジス タ 三 図 5・4・1 で 示し た よう に デー タ の 入っ て いる 箇 

所 の 先頭 アド レス 

(0 0 1 7 ) 三 単 精度 型 を 示す 数 値 ($ 0 4) 
FAC1 ー 単 精度 実数 

FAC1 = 多項式 演算 の 結果 ( 単 精度 型 ) 

|WORK | (8D: 8C) ニ X メ レジ スタ の 保存 
(007D) ニ デ ー タ の 個数 を 格納 

SU 日 $B330 一 FAC1 を (005F) か ら の 4 バイ ト に 格納 
$B0 EE 乗算 を 行う ルー チン 5 一 3 一 3 参照 
$ ぉ B32B つ FAC1 を (0063) か ら の 4 バイ ト に 格納 
$ ぉ AF 1 A つ 加算 を 行う ルー チン 5 一 3 一 1 参照 


| 解説 | TAN, COS, SIN, ATN, LOG, EXP と いう 演算 を 行 
う 際 に は , 必ず 近似 多項式 を 用 いま す が , この 近似 多項式 を 計算 する の が この ル 
ー チ ナチ ン で す . 

で は 具体 的 な 式 を あげ て 説明 し ます . 

@ や BB9 4 番地 の 場合 

引数 を X と し 結末 を Y と する と 次 の 多項式 を 計算 し ます . 


Y=X (ao 十 aiX* 十 as2 ま 十 as 9……… a。X2n ) 


ここ で ai は 図 5・4・1 の よう に あら か じ め メ モリ 上 に 格納 し て お か な けれ ば 
な り ま せん . まず メレ ジス タ の 指す 番地 に n (デー タ の 数 一 1 ) を 代入 し ます . 
その 次 の バイ ト か ら 4 バイ ト ず つ 。 定数 を aa か ら 順 に 変数 テー ブル 用 の 単 精度 実 
数 の 格納 法 (5 一 2 一 6 参照 ) に し た が っ て 格納 し て いき ます . 

この ルー チン の フラ フロー チャー ト る を 罰 5*4・2 に 志 し まし だ 。 こ の フロ ーー チャ 
ー ト は 次 の 式 の ( ) の 一 番 内 部 か ら 順 に 計算 し て いま す . 


Zoo 


図 5・4・1 定数 の 格納 法 狗 5・4・2 多項式 フロ ー チ ャ ー ト (1 ) 


X メ レジ スタ の 示す 番地 一 | 
如 m を 変数 テー ブ | ' 
ル 用 数 値 で 格納 
n 一 1 ' 
] No 
YーX2 ネ Y 
a 0 「 


Ye 一 X*Y 


終り 
図 5・4・3 多項式 フロ ー チ ャ ー ト (2) 
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Y=X (aop 士 X2 (ai 十 2 (a5 圭 2 (…… (an=i 店 anX5 JJ ) 


@$BBA3 番 地 の 場 合 
引数 を XX と し 結末 を Y と する と 次 の 多項式 を 計算 し ます . 


Y= テ ao 十 aiX 二 aszX*2 十 as ペリ 十 コ 4 の an。 Xn 
定数 ai の 格納 の 仕方 は $ BB 9 4 番地 の 場 人 > と 同様 で す . 
この ルー チン の フロ ー チ ャ ー ト を 図 9・4・ 3 に 示し まし な この フロ チャ ー 


ト も 以下 の よう な 計算 の 一 番 内 側 の ( ) の 内 部 か ら 演 算 し て いま す . 


Y=ao 十 XX (ai 圭 X (az 十 X) ……… (an- ュ 十 an 多 ) ) ) ) …) 


要 | 以下 の サン プル は 配列 を 用 い , 下 の 式 の 定数 を 代入 し て Y の 値 を 求 
の グロ グアム で す 。 


Y =ao 十 aiX 十 azX* 十 as% 十 a4 す ……… as 


配列 の 格納 の 仕方 は 2 一 2ー2 を 御覧 いた だ けれ ば わか り ま す が 図 
ほぼ 同様 で す . 異な っ て いる の は 図 5・4・ 24W の 人 n が 入っ て いる 
に 対し て 配列 で は n 二 1 が 入り , ai は 配列 A (0 ) の 筒 所 に 入る と いう 点 で す . 

で すか ら an の 値 を A(0 ) に 代入 する の と 同様 に a』 一 a。 16 (1 7 0 行 目 
か ら ) . 

この ルー チン へ の 入力 情報 は ベレ ジス タ に 図 5・4・1 の 先頭 アド レス で すか 
ら 。 ADー 1 を メモ リ 上 の (4FFE : 4FFF) に 入れ ます 【A(0) の 先 
軸 ア ドレ スー 1 に 配列 の 個数 が 入っ て いる , 2 2 0 行 目 か ら ]. 

2 8 0 行 目 より , マシ ン 語 $5 0 0 0 番地 か ら の 命令 を 実行 し ます . $ 50 
0 番地 か ら の し DX で XX レジ スタ に デー タ の 先頭 アド レス を 読み , DEC で n 二 
1 を n に し て お きま す , USR0 を 実行 し た と き , FAC 1 に 丸の内 容 が 入り ま 
す の て 入力 情報 は これ で すべ て そろ いま す . この 後 $ BBA3 番 地 を 呼び 出せ ば 
ly (GS 
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E 上 1 生ま キ そ エ そ エエ エエ テ エ エエ テ エ コー キテ そ エ テ エ エキ テ そそ キキ テキ そ デキ モエ テキ キミ テキ そ キテ チキ モ :] 


1 1  「 着 汗 著 基 ヴ サコ リウ シキ アー ケイ サン 


キネ キネ キテ キ テ ネ そ キモ キネ や 


Ce 還 半生 た. 王 王 エ エエ エエ エー テ エ エエ テー エエ エエ テ エ テテ エキ エエ エキ テキ テテ テテ エエ テキ エエ エー エエ キテ ニテ キキ ミキ デキ キテ : 


1 さけ メニ ロミ マニ 0 

140 DEF USRO=&H5OOGO 

1509 INFPUT VN="。N 

1 る 0 Di 合 ( 仙 ) 

1 7 テイ マウ 7 ダイ ニュ ウ 

15BD FUR 1= ロ TH N 

190 FRINT "の 各 (UEN-EI "PO)=VEgENFUT 谷 (T 
On NEX 十 1 

<10 TNFUT 人 三 リ 

ec 人 操 リ メー ロビ RFTR((O) ) 

こつ) 貼 け ん メー ロリ メー 1 

(うー 月 ッ レブ リー プー 生 口 ロ ビ 刀 上 上 ヲ メモ リ 人 へ 
oO FUEE HH4F ド FE ロロ D まで らら 
こら 0 FUHEE &H4FFF 。 RDZ MHD 25 る 
ご ー/ リ ーー ヴ コ ウシ ルキ ーー ジョ w コ ウ 

ed Y マ =UGRO(X ) 

coO_ FRIENTTY テ "EEY 

300 END 


FaBE。 001 (BE1EO1 。 0 うさ うう OS ) ロ 人 FLE 


0 1 電 ピコ ゴウ シギ 
OO で 0 

(けさ (人) (1 )( ) 

(CC11 由 ) 

(つい () っ (0 BE ココ ロコ 

DD けら っ JO 古 百 は 人 4 

(OO0 ア ZD 0 ED BBR う 


COOBOD 5OGB 6 F 和合 FFE 
000 ワ 0 OO 3 き ウ 
G(0)1 DO 
TUHT ロ L ERRURG _OO00 ロ ーー00000 
TUTRL MARNTNBS OOO0OO ワ ーー00O0OO 
RUN 
デコ 
内 ( ロロ ) = 全 分 
円 ( 年 )= ニ で 
内 ( あ ) ニ = 人 4 
各 ( だ )= テ ? ラッ 
合 ( 1 )=? 
ロロ ( け )= テ で ウラ 
ーー すら ご 
い 己 &Hy 
FIARDC 
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) 


NAM 
RG ロ 
UF'T 
LDX 
DE ロビ 
りら R 
TNC 
RT 
END 


ら SRPMFLE 

生ま コ 00 

ME 

1 ココ コ サレ リ 7 同 ロ ロレ 王 己 
> (イレ ツー / ニコ スズ ウ )ー1 


生日 フ 月 ゲ アコウ シギ ーー / ニケ ィ サ フン 
[4FFE ] 


5 一 4 一 2 SIN・COS を 求め る ルー チン 


$BE60, $BE66 
化 _ 能 | や BE60 引数 ( 単 精度 実数 ) の コサイン を 求め る . 


$BE66 引数 ( 単 精度 実数 ) の サイ ン を 求め る . 

A。 B。 X。U 

FAC1 = 上 単 精度 実数 の 引数 
(0 0 1 7 ) テ 単 精度 型 を 示す 数 値 ($ 0 4) 

FAC1 ーS IN, COS の 結果 ( 単 精度 実数 ) 

FAC1, FAC2 
(0088) 

SU B| $B380 一 FAC1 を FAC2 へ 転送 する 5 一 2 一 6 参照 
$B22D 一 FAC2 を 変数 テー ブル 用 数 値 で 割る 
$B472 つ FAC1 の IN 填 を と る 5 一 4 一 8 参 上 
$ も AF14 一 FAC1 を FAC2 か ら 引 < 
$AF 1 1 一 減算 ルー チン 
$BB2F-- 符 号 反転 
$AF 1 A- 加 算 ル ー チ ン 
$BB9 4- 近 似 多項式 5 一 4 一 1 参照 


| 解 。 説 | 以下 に S IN, CO S の アル ゴリ ズム を 述べ ます . 
@S IN に つい て 
ここ で は 引数 (FAC1 に 代入 する 値 ) を X と し ます . 
1) X が 非常 に 小さ いと き (絶対 偽 が 9. 7 6562x メ 1 0 以下 の と る き ) 
炊 の 公式 を 使い ます . 他 の と き は (2) へ いき ます . 
SLN (X) 三 え  (X 才 0) 


mh 


(2) メニ Y 十 2n ァ と 半 き ます (n は 整数 )、 ここ で 次 の 公式 を 利用 し ます . 
SIN (XX) 三 SIN (Y 十 2n ヶ ) 三 SIN (Y) (0 ミ Y< く 2 ァ ヶ ァ ) 
変形 し て 本 
BTN 2 ァ ーー8IN (P) で" 9 
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EE2 つ 2 宝 ミ ミミ ミミ ニニ ニニ 5 ミミ 5 ミミ 5 ミ SR キキ bb キキ b ゥ っ ぷ 〉 コ Tm プ ヂ ORU キ ゝ コミ K ュ 5 ミ k ュ く =+ ゞ ヘ ゝ ハイ 85 ゥ Eob キ Rb ほ KS コキ bq ゥ bhq ふ jmo ohkhkhiqos ね st ね て ね tt『†t『|is8 ほ IIIROKTOOKTWWRWh キ pi ipi め ヲ サ W(5 ら sxsS ミ 1 ミト T シ セキ トキ も トキ ト 【KkKW ル KC†〔 ト へ ズ ペル バ パ u パ バ パ バ I ス WWW{WCOC べ OO エエ KR つつ 9 つつ タ 9 タタ 9 ユゥ 8 ゥ 899 ユゥ 8qs,sthtcEDEb レ K ら 59b シ モト ドニ 1 うら 5 ト よら つら つっ 9 つっ 9 つっ 9 ゥ っ 9 ゥ 9 っ shs8 も 9tshshshsxvxhvhththtqtcq((dchq『| こ shoqhq。、「 ュ 「, 了 qducuDHDTQDERER ら msnut1tEcEc そ Eeeu ERR へ ヘマ つ REESEKSKRKSKK55 ッ ピ ッ ギ じ せ ぼ “ じ ワ ヶ じ ゾ (0 し 30 ぼぼ 


3) 


を そこで ① 式 の 左辺 の ( ) の 中 の INT を と る と n に な る の に 注目 し て を 
ら 婦 
計算 し ます . 


人: ( さ ) 
2 ヶ 2 ァ 3 


この Y の 値 に よっ て 場合 分 け を し ます . 図 5・4・4 を 御覧 下さ い . 
US SN 2 デ 凶 で は I の 領域 
Y は その まま で (3) を 実行 し ます . 

MM アグ クーYS き アァ ア / ク 好 で は II, 中 の 

唄 域 

SIN (Y) =SIN ( ァ ヶ ーY) 

と いう 公式 を 利用 し ます の で 

Yー ァ ーY と 置き 直し ます . 
(3) へ 飛び ます . 
員 ) 3 ググ 2 ミ Y ぐ く 2 ヶ 7 図 で は MV の 全域 

SIN (Y) =SIN (Yー2 ヶ ァ ) 

らい う 人 公式 よ り em 

YーYー2 ァ と 置き 直し ます . 3z/2(270 ) 
(3) へ 飛び ます . 図 5・4・4 単位 円 
※ ロロ )。 G り 。Q を 計 鼻 する こと で , (3) の 近似 計 

算 の 適応 で きる 範囲 の Y の 値 に Y を 変換 し ます . 


吊 の 領域 IV の 領域 


次 の 近似 計算 を 実行 し ます . 


b 4 
SIN (Y) キミ ーー jao 十 ai (ー 
2 


2 刀 
ye 
人 。 


本: 


+ as ( 


くつ 

| 
こと 
いう 
CO 
ひ う 
ーー 
Oo 
〇 ] 


39ー 室 如 。 9 


Ia 
いら 
| 
し この 
ーー 
で ⑦ づ > 
し 
いう “ 
ここ T CO も 5 @5 
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この 結果 が SIN (X) の 結果 と な り ま す . 
馬 COS に つい て 
CO S は 以下 の 公式 より 計算 し ます . 


COS (X) =SIN ( テ +X) 


で すか ら COS を 求め る に は X に x/2 を 足し て か ら S IN を 求め れん ば よい の で 
す . 


<S IN, COS の BAS1IC に よる シミ ュ レ ーション > 
以上 の こと を BA S I C 上 で 行っ て み ま し た . 定数 な ど は 文章 中 の も の より 桁 
数 を 多く 求め て あり ます . ここ で 用 いた Y 寺 は 文中 の Y グ 2 ァ ヶ に 相当 し ます . 


1 「 盾 潮 着 症 半 芝 革 基 責 基 BOBSTC SEN SIMULRTEUN 逢 半 療 半 基 基 甘党 着 差 其 半 聞 着 天 基 義 着 半 
上 症 還る キネ ミネ キキ ミー キキ ラキ ミネ テ ジ ネ エ キ エキ キテ キイ で ます デキ エキ エマ テキ エー キキ オオ ネエ ーー ミエ テー エエ: 
OO 1 4 1 つり 9 だ らら 人 48 に リバ 

1 字 O 7 半 半 革 基 汗 天天 半 拓 和 半 湊 基 拓 着 着 半 半 療 着 革 着 基 着 涯 閣 汗 涯 捉 失 洲 其 半 着 湊 着 直 半 基 天 守 交 基 革 光導 基 党 着 着 基 基 
1 人 4 ENFIUT りー リ ェ 多幸: / 拉 三 X 韻 

5D 7X カロ ニニ テカ ガイ トキ 7 ショ リ 

160 IF ES(X 提 ) そ 000 ウ 7659E 韻 THEN 時 ーX せ 5k ロ UTU で うけ 

17 プ 0 Y 社 (OX 半 / ア る 1415 の 6 ロ 4 導 アタ ーTNT(X 手 / プ は 。 1 15 ワ ビ 6 ら 竹 性 アビ) ) 

18BOD nm フウ ウー フイ ー ニ 所 ルリ アゴ リッ ケ 

190 上 F Y く だら GOUTOU ビデ 

SeOO エ TF Y 寺 ミュ プロ THEN Y 持 モコ ーY 提 EL. コロ ヒビ YY 社 モア Y 挟 一 1 

ご 10 "ギリ リグ コウ の レキ / ケイ サフ 

っ OO) 時 モ Y 社 (6, 2B そ 1 日 呈 人 キール 1 、 計 416755 拉 %Y 井 XY 圭二 日 1 . 602 や 4 韻 キ Y 柱 YY 祝電 YY 昔 エ キー ブ 6 ら コア オ ワ 日 壮 ま Y 韻 YY 揚 キ Y 
壮 党 Y 福 え Y 埋 キ Y 提 する 9 。 プ 71067 井 YY 韻 Y 提 エキ Y 柱 革 Y 韻 え Y 社 YY 半 え Y 社 Y 韻 ) 

2 う 0 PRINT "BSGIC STN(" ョ ミア 柏 ま 0) う = リョ 4G 社 "SEIN(C リ ョ アア 社 5 ) う テニ" リュ IN(Z 葵 ) 
2 人 40 ENDD 


OO) | 半 拓 半 芝 本 党 区長 間 昌 QBEIC CUG STPMUL 折 上 各国 導 潮 共 甘 天 大 基 基 半 共 党 難 天堂 天光 基地 基 半 涯 
ニテ キキ テテ キテ キキ そそ デキ エエ テテ そそ エキ そそ テ そ <: 
OODー ) っ 141 ビビ 6 コ 和 44 ミロ) ッ 

IO 間 E ま 生ま 王 天 そそ 計 王 天主 王 王 王 ま 生ま た も まま を まま モエ ミュ ニテ モミ ミミ を また を 生生 ま 主 1 
1 邊 0 _ INFUT 三 リョ X 韻 *Z 柏 補 X 革 

1 ロロ XX 電マ 。 1 1 1 ロウ で らら 人 4 韻 / で +X 井 

160) X カロ 0 ニニ チカ イト キキ 7 ショ リ 

170 ナド nHBGCX 井 ) で 。 ロ OO ロワ 9 プ 765 性 THEN D 祝 ニ メ 革 5U け TO 40 

1 ロ HO Y 手 三 (X 社 / そ 14159 つ 6 ロロ 4 人 / や セーTNT (XX 井 / さ 1 41 ココ 9 で 6 ラコ 4 革 / ア ビ )) 

1 の 0 "ヘッズ ウ ーー リフ イー ニ ヨ ルル 用 アイ リガ 

200 ITF YY 夫 てく 。 ジロ BUTOUD どう 3) 

つ ご 1 のり TF Y せ < く 。7 ア 5 THEN Y 村 三 . ローY 昔 ELSE Y 幸 三 Y 療 一 } 

ダン OO ギフ シル ウツ コリ ニー シキ ーー / ニー ケイ ザ サフ 

つ そ ロロ 半 ニヤ 韻 テ (らら 、 で 8 記 1 日 己 柱 サー 人 4 1 、 そ 4 オ 167 ロ 后 #Y 守 エ Y 提 十 日 1 、 ら 0 ご で マオ 4 韻 え Y 揚 キ Y 井 ま Y 井 キ Y 共 キー ア ら . コロ アオ マロ 直視 Y 揚 Y 
井 ミ キヤ Y 提 キ Y 井 天 Y 韻 キ そ アロ りら ア 手 YY 揚 Y 井 YY 柱 語 Y 杜 Y 宇 Y 井 了 え YY 揚 エ 了 草 ) 

240 FRTINT "BAGIC CDUG( "4Z 電 ミリ) モリ "リョ ロロ 電 。 "CUS( "2Z 福 : リ ) デ リョ し じ 0S( 蘭 ) 
2 本 0 END 
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5 一 4 一 3 TAN を 求め る ルー チン 


$BEB1 
機能 | 引数 ( 単 精度 実数 ) の TAN を 求め る . 
| レジ スタ | A, B, X, U 
FAC1 ーー 単 精度 実数 の 引数 

(0 0 1 7 ) 単 精度 実数 を 示す 数 値 ($ 0 4) 
| 復帰 情報 | FAC1 ーTAN の 結果 ( 単 精度 実数 ) 
(5F 一 6 2) = ニ FAC1 の 保存 


(6 BCー6E) = ニ FAC 1 の 保存 
(007C) = テニ FAC1 の 符号 部 
(001C) =TAN 場 合 分 け フ ラグ 

SU り U 日 $B330 つ FAC1 を (0 0 5F) か ら の 4 バイ ト に 保存 
$BE66SIN 5 一 4 一 2 参照 
$ も B337 つ FAC1 を メモ リ 上 へ 変数 テー ブル 用 数 値 で 保存 
$ も BED0 一 SIN の 途中 へ 
$B2 3 4 除算 ルー チン 5 一 2 4 参照 
$B3 0 1 一 メモ リ 上 か ら FAC1 へ 数 値 を 代入 

終了 条件 | 1.57079632 一 1.57079643 の 数 値 と これ に nz を 
加え た も の は Division By Zero を 発生 する . 


解 説 | TAN は 基本 的 に は 以下 の 式 を 実行 し て いま す . 

SIN (X%) 

キス 4 を 所 き 4 

し か し ,SUB の 項 を 御覧 いた だ けれ ば わか り ま す が , COS の アド レス を 呼び 
出し て いま せん . これ は S IN を 求め た 後に まだ メモ リ 上 に Y プ 2 ァ ヶ の 値 が 保存 
され て いる だ めで す . この 際 に ノン 2SY ぐ 3 テグ 2 の と き $O0 0 1 CC 番地 に フ 
フグ を 立て て お きま す . TAN が 実行 され S IN の ルー チン が 終る と , この フラ 
グ を 調べ ます . この フラ グ が 立っ て いる 場合 は Y プ 2 ヵ ァ から 1 ググ 4 を 引い て , 立 
っ て いな いと き は , 14 から Y プ 2 ァ を 引き ます . この 値 を 近似 多項式 に 代入 
する と COS が 求まる わけ で す . 
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ーーーー 


5 一 4 一 4 _ ATN を 求め る ルー チン 


| アド レス | $BEF5 

| 機能 | 引数 ( 単 精度 実数 ) の ATN を 求め る . 

| レジ スタ | A, B, X, U 

| 入力 情報 | FAC1 = 単 精度 実数 の 引数 

(0 0 1 7 ) = 単 精度 型 を 示す 数 値 ($ 0 4) 
FAC1 = ニ ATN の 結果 ( 単 精度 実数 ) 
|IWORK| (007C) 

$BF1F 一 $BB2F : 符号 反転 ルー チン 


も BECD 一 $ も B234 : 除 算 を 行う 5 一 3 一 4 参照 
$ ぉ BEAE…$ も BB9 4 : 近似 多項式 5 一 4 一 1 参照 
$AF 1 1 一 減算 ルー チン 5 一 3 一 2 参照 


解 説 | アル ゴブ ゴリ ズム は 以下 の と お り で す (引数 を と し ます )、. 
1) まず 次 の 4 つの 場合 に 分 け そ れ ぞ れ 処 理 を 行い ます . 
3 0 革 え その と き 
X の 値 は そ を の まま で (2②) を 実行 し ます . 
(ii 1 ミ X の と き 以 下 の 公 式 を 利用 し ます . 


TN (X) = テーATN (<】 
ん _ 2 


Xe-1 ン /X と 置い て (2) の 近似 式 を 行っ た 後 , テグ 2 か ら 結 果 を 引い て 人 答え 
を U し ます 。 

(ii 一 1 く X ぐ 0 の と き 
以下 の 公式 を 利用 し ます . 


ATN (一 XX) ニーATN (的) 
の ーー と 置い て (2⑫) の 近似 式 を 実行 し た 後 。 付 号 を 反転 きせ ます . 
(iv) 失 ミ ーー 1 


この 場合 は (0 の 公式 と ⑪ の 公式 を 利用 し ます . つま り 次 の 公式 を 実行 し て 計 
上 邊 する わけ で す . 


ATN (一 X) ニー テ +ATN (<) 


メーー 1 双 と 置い て (2⑫) の 近似 式 を 行っ た 後 , 結果 か ら ァ 2 を 引い て 人 答え 
を 求め ます . 


20J 


M 


(3) 


次 の 近似 式 を 行い ます . 
ATN (XX) 計 名 (ao 十 aiXX< 十 azXX? 十 asX? 十 aa4XX“ 
asX9 二 aeX1 十 a?7 多 は 士 asaX15) 


as 三 2.86623X10 ご 
a7 デ ニー1. 61657X10 ブ < 
ae 三 4. 29096xX10 ご < 
as デー7、52896X10 ご < 
aa 三 0. 106563 
as3 三 ー0. 142089 

a2 三 0. 19993836 
a1 デ ー0. 3333 1 

ao 三 1. 00000 


上 の 近似 式 を 実行 し た の ち , 1) の 場合 分 け に し た が っ て ATN (X) を 求め 


ます . 


ペ ※< 


1) の 場合 分 け に つい て 

の 場合 分 け を 実行 する こ と に より , すべ て の XX の 値 の ATN (X) が 0 
ミ X < 1 の と き の ATN(X) を , 求め る 近似 式 よ り 得る こと が で きる わけ で 
す . 


く AITIN の BASIC に よる シミ ュ レ ーション > 


1 


40 行 目 と 170・180 行 目 は 以上 で 述べ た 場合 分 け を 実行 し て いま す . 


この 計算 で は 倍 精度 実数 を 使っ て いな いた め , MI り の 誤差 を 生じ て 
し まい ます . 


1 ()() 
110 
1 そ ロ 
1 うり 
1 條 ( 
1 
1 6 
96 ビ 
中 因 
1 全 け 
19 
づ ()( 
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エエ モテ エエ エー エエ エエ テ エニ エエ エエ コミ ニテ ミ テ エエ エエ エエ モネ エエ テ エエ テ エ エエ エエ キー エエ エエ テテ エミ エエ モー モー ミニ 主 王 を 

本 EE 王 生ま E 正 下 正 : BE 折 呈 IT 折 TN GII 半 LL 皇 TIN 着 着 其 革 牙 基 基 基 赴 基 間 牙 基 其 所 王 基 天 

コテ エミ デズ ネズ エミ ミエ エー エニ や ネエ エズ テテ ミエ エズ ミミ ネエ エエ エエ ネネ ミエ ネエ オメ ネエ エネ エエ エネ エエ エエ エネ エエ エエ エエ エエ 王 二 エエ ゴゴ <: 
TNFUT 人 三 リュ XX 

]F 1 ミー ロビ GO(W) THEN アモ 1/ ロ EDO(XK) ELGE ZZ ニ = 和 ロロ (XX) 

「 ETNMNJTT T 折 EDUU5GHT EE 害 電 拓 省 質 拓 党 療 鞭 基 基 江 芋 洪 電 基 江藤 基 革 基 汗 基 填 江 着 基 芋 湊 苦 革 泊 
CUTAE=Z% (1+ZXZ%(ー、 そ そそる 1 ロ +Z ォ 7ZX(、1999 マ 6+ZXZX(…、14COB ウ の +Z ォ Z テ (。、10656 コ キア XZ テ (ーー アロ 2 日 


"U ご + ア キオ アオ (4 マウロ ウム 6 に ビー ワリ エナ アオ メキ (ーー1。 ら 16 ら 9/ ヒ ビー ロジ キア キア キビ 、 ロロ 6 ら ど うさ ヒー ロリ さき) より)) ) )/ 


『]F 12ーRES(XA) IFHEN COUT ロロ E ビ ニュ 1 1 コマ アビ ピー ビリ T 月 E 

じ U1 ロ ビー5BN (CX) * じ UTARE 

FRINT "ERETC TNCUEKE "DO) う =EVsaCHTRNE。 "RTNCVD AIAI ) ニ "リョ ュ ロ TN(X) 
EIND 


5 一 4 一 5 ビビ XP を 求め る ルー チン 


$BB5B 
機能 | 引数 ( 単 精度 実数 ) の ヒビ XP を 求め る . 
レジ スタ | A, B, XX, U 

入力 情報 | FAC1 三 単 精度 実数 の 引数 

(0 0 1 7 ) = 単 精度 を 示す 数 値 ($ 0 4) 

復帰 情報 | FAC1 ーTAN の 結果 ( 単 精度 実数 ) 

WORK | (0011), (008B) 

SU B| $ も B330 つ FAC1 を (0 0 5F) か ら の 4 バイト に 保存 
$ も BBA0 一 $BOEE : 乗算 ルー チン へ 5 一 3 一 3 参照 
bB1F5-Error 処理 
$B472 つ INT 5 一 4 一 8 参照 
AF 1 A- 加 算 ル ー チ ン 5 一 3 一 1 参照 
$ も BOEB-log2*FAC1 
$BB 2 F… 符 号 反転 ルー チン 
$BBA 3… つ 近似 多項式 ルー チン 5 一 4 一 1 参照 
$ ぉ AF 1 1 一 減算 ルー チン 5 一 3 一 2 参照 

終了 条件 | 結果 が 1.7014X1 0 を 越え た 場合 は Error(Overflow) を 発生 
する . 


解説 | EXP (X) の 計算 の 一 般 的 な 方 法 は 以下 の と お り で す . 
EXP (X) =EXP(n log 2 二 Y) 三 2"*※EXP (Y) 

この EXP (Y) と n を 求め れ ば EXP (X) を 求め る こと が で きま す (n は 

加 多 。 0 全 Y ぐ log2). 次 に ドーBA S TI C 上 で の デル プリ ズム を 述べ て いき ます . 


ーー 


1) X を log2 で 割り ます . ZZ ミニ X メ ン ノ log2 と 資 き ます . 
[この と き , INT(Z) が n に 相当 し ます 〕 

2) Z の 値 に よっ て 以下 の よう に 場合 分 けし ます . 

(i) ZZ の 値 が 1 2 8 以上 の と き (X が 88.722 9 以上 の と き ) Overftlow を 
2E 二 し ます . 

(ii の 値 が ゲー 1 2 8 以下 の の とき (X が 一 88.7229 以 下 の と き ) FAC1 に 
0 を 代入 し て 終り ます . 

0 それ 以外 は (3) を 実行 し ます . 


ーーー… 
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(3) ZZ の 値 の I NT を 取り ます . この 値 が 1 2 7 の と き (X が 8 8.03 の と る き ) 
は Overflow を 発生 し ます . それ 以外 の と き は (4) へ 行き ます . 
EXP (Y) を 求め ます . EXP (Y) は 近似 計算 で 求め ます が , ます 以下 
の よう な 準備 を し ます . 
U= ニ Xーlog2* (INT (Z) 填 1) = ニ Yーlog2 
V= テ ニーU と 置き ます . 
以下 の 近似 計算 を し ます が この 近似 計算 は IEXP (Y) | /2 を 求め る こ 
と に な り ま す . 
EXP (YY) グ 2 二 ao 十 aiV 十 azV* 十 asV" 十 aaV^“ 
填 asV" 十 aeV" 十 azV/ 


4) 


(5) 


ao 三 1 . 0 

a1 デ ー1. 0 

a2 三 0. 5 

as デー0. 166665 

a4 三 4、16574 メ 10~< 
as デー8. 30136X1 0 ご 
ae 三 1. 32988X1 0 ご 
a7 デ ー1. 41316X10 ご 1 


(6) EXP (X) 2" サ 1※EXP (Y) /2 より 求め ます . 具体 的 に は n 十 1 を 


EXP (Y) 2 の 指数 部 に 足し ます . 


〈E 上 XP ピ の BASIC に よる シミ ュ レ ーション > 


IE きた 区 交 天 エエ エズ エズ テ エ エエ エニ コミ モエ エニ モミ チエ エミ エエ エメ テテ エ テテ エエ ミズ ミエ エモ エエ エズ エエ エズ エミ モエ ミズ エエ ネエ ミエ エエ エエ SS エエ ミズ ミエ : 


1 1() " 着 基 鞭 芋 填 填 電 基 着 甘 革 基 其 基 基 基 基 基 区 ロロ GT じじ EXP SIPULRT IOUN まま まま 王 二 エ キキ テテ エネ テテ テテ ニテ テテ エミ: 
CIS 間 還 - を まま モテキ エエ キテ エ テテ テテ キテ エニ モエ エエ キモ モミ テモ エ テ エ テキ エエ テモ テテ エエ そよ エエ た キチ エエ ミキ そそ キモ キャ エエ デモ モミ テモ モモ モモ] 
LO 1 。 和仁 ご アロ ェ ミキ /L ロ ロロ (2) 

1E3 人 8 間 還 天王 テ キテ キテ テモ エエ エキ エミ モエ ニキ モモ エニ モテ テモ デキ モテ テ エキ モエ テテ モモ モテ キテ エエ キテ モエ テテ エモ テテ キテ エエ テキ エモ ミキ テモ ニテ エエ モミ テモ ニモ : 
1 コ 0 INFUT V 三 リョ 

16 ら り アー メキ 1 。 人 人 ピア 

1/ ア 0  E ビ ビ ロ レビ ショ リト コタ エ カカ ロロ 二 チカ イト キ / ショ リ 

1 ピロ OO IF ZZ ニテ 18 日 THEN FRINT "HHverf1ow"g BEEFP END 

17 ど 0 上 F アマ エー ロジ B ロ THEN CUTAE=O: GUTU ど 9 の O 

200 IF INT(Z)=127THEN FRINT "Overf1ow'"sBEEFg END 

10 昌三 ミー。 ら 7 ミエ 1 人 47 アル (JNT(Z)+ キ 1 ) 

ーー ァ () ソニ ミー 

ご うり キン シー ウツ コ ウ シギ // ガイ サッ 


240 CUTAE=1!+VX(ー1!+VX (5+VX (一 、166665+VX (4.16574EーO2+V (日. そ 01O1EーO マ +Vx (1 、 さ 298BE 
ー り さ + ソ ォ ー1 . 41 さ 16EーO04 ) ) ) ) ) ) 


どの つけ と 


つら 
ご アロ 
“日 
内 
5 
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プ ロキ 1 ジョ リウ ラブ カケ ル 
FUR IO T ロ INT(Z) 
COUTRE ニ ビジ *CUTRE 

NEXT TI 


村 
ここ 


PRKINI BRGBIU EXKP(0 つ ョ Ks リー ーーs し UITRE。 EX に ( ョ AS リー ニー ョ ヒビ (ん) 


END 


5 一 4 一 6 LOG を 求め る ルー チン 


$B0AA 
機能 | 引数 ( 単 精度 実数 > の LOG を 求め る . 
A, B, X,U 
| 入力 情報 | FAC1 ー 単 精度 実数 の 引数 
(0 0 1 7 ) = 単 精度 型 を 示す 数 値 ($ 0 4) 
| 復帰 情報 | FAC1 ーLOG の 結果 を 単 精度 実数 で 代入 
(0 0 7 4) =FAC1 の 指数 部 
$B3A0 呈 符号 判定 ルー チン 


$B 0 B2 写 符号 反転 ルー チン 
$9 6 6 3 一 legal Function Call 


$ も AF 1 A 一 加算 ルー チン 5 一 3 一 1 参照 
$B 2 3 4 一 除算 ルー チン 5 一 3 一 4 参照 


$AF 1 1… 減 算 ル ー チ ン 5 一 3 一 2 参照 
$ BB 9 4- 近 似 多項式 ルー チン 5 一 4 一 1 参 早 
$B330 一 (0 0 5F) か ら の 数 値 デ ー タ を FAC1 へ 
$ ぉ BB3C0 一 ロレ ジス タ の 値 を 整数 型 に する 
$ ぉ BCFF… 整 数 型 を 単 精度 型 へ 5 一 2 一 5 参照 

※ 員 B0 EE 乗算 ルー チン 5 一 3 一 3 参照 

※ こ の ルー チン は LOG の 内 部 に ある . 

引数 が 負 の 数 の と き は lllegal Function Call を 発生 する . 


解説 | 一 般 に コン ピュ ー タ で LOG を 求め る た め に は 内 部 数 値 型式 が 2 進 
数 で ある こと を 利用 し て 以下 の 公式 を 利用 し ます . 


LOG (X) =LOG (2"※Y) =log2* ネ (n 十 logzs Y) 


前 。 (Yー マ 2/2) 
2 2 テニ イマ 」 272) こ お き ます . 


「Y 
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f (2Z) 二 ao 十 a1 の * 十 azZ1 
a0 三 2.68539 
a1 三 0.96147 1 
a2 三 0.598979 


ここ は FE 一 BASIC 
の も の を 用 いて いま す . 


LOG (X) =log2* In ー テ +Z*f(Z)| 


log2 =0.693147 


欠 に ドーBASIC で は どの よう に 行っ て いる か を 述べ ます . 


引数 が 負 あ る い は 0 の と き は Illegal Function Call を 発生 し ます . 
A レ ジス ター (0074) 一 $ お 8 0 これ が n を 求め た こと に な り ま す . 
(0074) <$80 


(Y_V2 / 2) 


2 テイ Y+7 テ ノッ 2 ) 


を 求め ます . 


LOG (X) =log2 * Inー テ +Z*f(Z)| を 計算 し ます . 


ME 2 0 


< く LOG の の BASIC に よる シミ ュ レ ーション > 


文中 の nm が この プロ グラ ム 上 で 』 と な っ て いる 他 は 文中 の 文字 を 使っ て いま す . 


IE1 全 間 還 エエ モモ モエ モモ エキ テ モ テモ テキ モエ テキ モモ テモ キテ キモ エ エモ キキ モテ ネギ デモ モテ そ デ デモ そ モデ エモ テモ ミキ エギ そよ そそ モエ そよ そそ と モミ そそ そそ <] 
IE 症 還 た る テキ モネ カテ ミエ テテ エエ ネエ ネエ キテ テン ニテ エ テ デミ ネネ ミ モス ラキ テテ テモ テテ エネ スネ キキ エキ ネネ テモ エエ エエ ニニ ネエ ミネ お キテ テテ ミニ ミ : 
1 つづ CO) "時 甘 半 著 半 共 著 革 日 馬 GT じ D L ロ BB SIMULRTTU 有 IM 集 大 半 基 基 半 拓 半 着 革 療 導 基 基 基 基 基 基 江差 基 半 着 基 革 基 半 半 基 天 基 
kT エモ テキ ミネ テ ミキ テキ キキ ニテ キネ キモ テモ モエ テ ミネ テキ ミネ キテ テキ テモ テモ モネ キネ テテ モテ キモ テキ キテ テキ キネ キキ キキ ェ ミ テキ キテ そそ.] 
1 4 ロー 1 41 4 で 1 うら 6 ら 』 ルー トピ 

1 りり ロロ 。 ロ ザコ 1 オキ /1 』 ロ ZZ ニッ 

tt 間 還 E. エ エエ キテ テキ そそ デ テモ エモ テモ キキ モミ キテ モテ エエ ネモ モデ エモ テテ エ テキ エキ キキ モテ テテ デキ エキ モテ エキ キキ エエ エエ キキ キキ そそ そ モモ: 
170 INFUT% 三 リュ 大 

1  Y 昔 三井 

17 ロ DEFF ロ F ショ リ 

で ご QOC) TF Y 昔 ミエ モウ THEN _ PRINT " エ 11B ロ a ョ 1 FuUHC も tiOn じ a ュ 1 1 "gs BEEF s END 

ご 1D 口 づ モト メル 

マン (0 エニ ロ 

ご さき O Y 半 = ニ Y 提 / ジ 

< 人 サ D エニ エ + オ 1 

< こら けり TIF Y 電 21 GUTOU で 3 う 0 

ご ら 0 〇 0 アア 昔 三 (Y 祝 一 1 、 4114 で 1 うら 本 / で )/(Y 太 すす 1 。414 ど 1 うら ら 提 /) 

ペア ロリ ギー シン ゲ ケ コ ワー シギ キノ で ケイ サフ 

ロロ ロ 井 ニモ . ら ワ 9 うそ 147 ア 1 日 寺 キ (エー1/ で オア 埋 キ (で 日 ロコ う ワオ ピア 4 オ 人 4 幸二 培 キ / 韻 放 。 ワ 6 ら 1 和 4 プロ 6 らら うさ コ 4 アロ 1 ら 幸 士 拉 基 ア 提 滞 析 ※ ア 振 基 
. コワ ロワ / ロ 6 ぶ B6 ら 4 ロワ 日 ム 井 ) ) 

ce7O_ FRITNT "BRSIC LOUGCOUNX 井 ミリ) ニモ" リョ ロロ "LUG CO IX 拉 5") ニ "リョ LUG(X 欄 ) 

500 END 
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5 一 4 一 7 SQR・ べ き 乗 を 求め る ルー チン 


$BAEE 
| 機能 | 引数 ( 単 精度 実数 ) の SQR を 求め る . 
AB, X, U 
| 入力 情報 | FAC1 三 単 精度 実数 の 引数 
(0 0 1 7 ) = 単 精度 実数 を 示す 値 ($ 0 4) 
| 復帰 情報 | FAC1 引数 の SQR ( 単 精度 実数 ) 
WORK| (0011) 
(0 06B) 
(008A) = ニ FAC2 の 指数 部 
SU り U 日 | $B380 一 FAC1 を FAC2 へ 5 一 2 一 6 参照 
$B 3 0 1 つ メ モリ 上 の 数 値 を FAC1 へ 5 一 2 一 6 参照 
も AFC3 一 FAC 1 の 数 値 が 0 の と き FAC1 を 0 と する 
$ も B337 一 FAC 1 を メモ リ 上 へ 変数 テー ブル 用 数 値 で 保存 
も B472 つ FAC1 の INT を と る 5 一 4 一 8 参照 
$ も B3F6 つ FAC 1 と メモ リ の 値 の 比較 
$ も B373 つ FAC2 を FAC1 へ 
も BOAA つ FAC1 の LOG を と る 5 一 4 一 6 参照 
$ も B0EE 乗 算 ル ー チ ン 5 一 3 一 3 参 照 
も BB5B つ FAC1 の EXP を と る 5 一 4 一 5 参照 


S QR は 以下 の 公式 を 実行 し ます . 


ーー 


SQR (X) =EXP[ 


し か し , この ルー チン は た だ S Q R (X) を 求め る だ け で な く , 上 の 式 の 1 グン 2 
を Y に 変え た 場合 は 次 の 公式 を 実行 し て いる こと に な り ま す . 


X ハ Y マ =EXP !LOG (X) *YI 


ここ で は この 式 の アル ゴリ ズム を 述べ て いき ます . SQR (X) は この 式 の Y 
の 値 が 1 プ 2 の と き を 考え て 下さ い . 


2Z09 


(1) 双 = ニ 0 の と き 双 ハヤ = テ 0 と し ます 。 
Y= ニ 0 の と きま XX へ ヘ ヤ マニ 1 と し ます . た だ し X=0, Y= ニ 0 の と き は X ハ Y= 
おか がり ます 、 
(2) X の 符号 に よっ て 次 の よう に 演算 の 仕方 を 変え ます . 
(i) が 正 の と き , その まま 3) へ いき ます . 
(ii) X が 負 の と き 
次 の 演算 を 実行 し て その 結果 に より さら に 場合 分 けし ます . 
Z ノ = テ INT (Y) 
① Z ミ Y の と き (Y が 整数 で な いと き ) 
Error を 発生 し ます (Illegal Function Call ). 
② 乙 = ニ Y の と き (Y が 整数 の と き ) 
X の 符号 を 上 正 に し て , (3) へ いき ます . 
(3) XX^Y=EXP {LOG(X)*YI を 実行 し ます . 
(0 の ②⑦② の と きだ け 次 の 操作 を し ます . 
Y が 偶数 の と き は その まま , Y が 奇数 の と き は X^ ハ Y の 符号 を 負 に し ます . 
この 操作 が 何 を 意味 する か は 例 を 御覧 下さ い . 


< 例 > 1. (一 2) へ 2=2 ハ 2=4 
2. (2) ^ へ 3=ー (2^3) =ー8 
1 で は Y が 偶数 で すか ら を 一双 に し て も 答え は 変わ り ま せん . 
2 で は X を 一 又 に し て か ら 計 算 し た 後 , 答え を 負 に し な けれ ば な り ま せん . 


X ハ Y で この ルー チン を 使う と き の ア ドレ ス や 入力 情報 を お あげ て お きま す . 


$BAF7 
FAC1 ーY を 単 精度 崖 で 
FAC2 ー X を 単 精度 型 で 
(0 0 1 7 ) = 単 精度 実数 を 示す 数 値 ($ 0 4) 
A レ ジス タ (0 0 8 2) 
B レ ジス タ ニニ (007 4) 
必ず 
LDB $0O074 
JSR $ も BAF7 の 順 で 使用 し て 下さ い . 
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<〈SQR の BAS !C に よる シミ ュ レ ーション > 


人 1 間 間 間 症 生生 たま を 大 た エエ エエ テニ モニ モエ ま ミエ エミ エエ テテ テテ エミコ エネ テテ テ エ キテ モエ テテ テキ キキ モエ キテ エエ エキ テモ エエ モニ テテ エエ そそ エモ モモ: 
11(0  「 療 着 基 着 基 革  R 折 56I1 じ BOBR _ SIMULLRTIUN と ーー デキ キ テモ キテ モテ モデ テキ モテ テテ テテ テテ モエ キテ そそ ニテ : 
SE. は 天 全 王 を た 王 計 デニ エエ テテ テテ エエ エキ エエ エエ テキ エエ テテ キテ テテ キテ モモ キキ テキ テモ テテ キテ テテ キテ キキ デキ テ エ テキ キミ キミ ま : 
130 INFIUT リュ X 揚 

1 半 ロ TF 多 電 三 0 BHT 180O 

15O0 GUSUB でき 

1 ら 6 け 提 三 ロ 手 #1/ で ご 

170 GUSUE 400 

150 FRINT BRBTICU SEBRCO USK 電 ミー ニ "saCUTRE。 "SER(C UE X 提 ミリ 9) ニ リ ュ SRK(X 昔 ) 

1 ヲ 0 ENMD 

1 科 還 還 生 生 た 生ま 王 主 まま た 0 還 5 は する LE1HIGE ま まそ 天王 モモ デモ テモ テテ キー キテ そそ テキ キテ そそ モモ エキ エエ テモ エキ キモ モエ キモ エキ キキ エキ モミ まそ ニモ : 
10 1 。 革 1 人 4 だ 1 うら 6 ら ーー』 ルー トピ *。 ロ 。、67314/1 日 と 

ES 生 昌和 E- ま 王将 王 モモ 王 まま 王 モ エモ エエ モエ エエ キテ エ エエ エエ エエ モテ エモ テテ エチ テキ モエ モテ デモ モデ エキ モエ キキ エキ モエ テテ そ テ キモ モテ そそ 
ここ) Y 相 三 X 電 

240 EE ビビ ロビ ショ リ 

< つう (0) ITF Y 杜 で モリ THEN FRINT "リエ 11E ロ a1 FuncCtion Ca1 1 ": BEEF': END 

こら けり 口 づ モト メ 肌 

e/() よ 三 () 

日 リヤ Y 柱 YY 昔 / で 

<7 の オニ エ 二 1 

DO TF Y 圭 1 ロ UT BOO 

う 1 ロ ZZ 圭三 (Y 手 一 1 。、 人 414 つ 1 うら ら 攻 / で )/(Y 菩 1 。、 4142 つ 1 うら 6 埋 / で ) 

IM 

SO ロ 井 三 。 ら どう 1 人 4/1 日 井 電 ( エ ー1/ モ +/ 社 (ごく ロワ うり ビオ ピア オオ 4 提 ア 拉 7 井 。 6 ら 147O ら ら こ コロ オ ブロ 1 6 埋 二 ア 井 ※ ア 音韻 キア 井 ※ 
・ つ コア ロ ビア / コ らぶ けら 4 けり 9 ロム 6 井 ) ) 

っ 5 っ 0 RETURN 


6O 
ア () | 苦 革 天涯 長 甘 甘 著 革 大 著 革 基 洪 基 陸 基 基 FXF' 号 上 日 日 基 寺 其 拓 基 基 大 鞭 其 碁 藤 其 基 其 其 基 苦 其 陳 基 鞭 苦 基 苦 基 革 其 革 其 其 其 大 基 工商 甘 芽 
3 ヨ O ・ 1 .44270 ・ 1/L.DG (2) 


EX 間 還 エエ テテ エエ テテ エエ テキ エエ テキ エ そよ キテ ネエ テテ エ テ エ エエ エエ テテ エミ ミニ エエ テ エエ テア エ テ エ エキ テテ キテ エ テテ エエ エエ テ エ テテ エエ キテ エキ キキ テテ : 
條 0 = ロ 拓 1 。 人 44 ビア 

1 〇 IF Z= ニ 51E ジ 日 THEN FIREINT "UVEF キ 1 ロ uM 』k BEEF IEND 

4O0 IF ーー1EB THEN COTAE=OI BHTOGO(O 

邊 30 TTF INT(Z) ニ 1ZTHEN FRINT PUVveFrf1Oow "gi BEEFI END 

和 りり モロ 作ら 9 う 31 年 7(TNT(E) 寺 1) 

邊 (0) ソ ミ デー ロリ 

4 ら 60 COUTRE ニ 1!+V%(ー11 ト VM ォ (。 ウ TV テキ (ーー。 1 らら らら 9+ ソ キテ (416 らら ロ 74 オ ビー ロダ デ + ォ ソリ ォ (-ー 日 。 そ 0101 ヒ ビー ロマ キリ テ ( 1 。 うこ り 8 日 
りう キソ キ ー1 。 オキ 1 う 1 ら 6 ヒ ビー) ) ) ) ) ) 

470 FOUR =QO_ TU INT(Z) 

480 CUTE デニ デ MCOUTRE 

0 NEXT T エ 

JO RETURN 


27 1 


5 一 4 一 8 IN 十 を 求め る ルー チン 


| アド レス | $B472 
引数 の 値 を 越え な い 整 数 を 求め る . 
A, B。 X, U 
FAC1 = 引数 
(0 0 1 7 ) = 引数 の 数 値 の 型 を 示す 数 値 
復帰 情報 | FAC1 ー 引 数 の INT を 行っ た 結果 数 値 型 は 演算 前 と 変わ 
ら な い 
(0 0 1 1 ) = 引数 が 一 2 56 一 25.5 の 値 で あれ ば その 絶対 値 が 
付 号 な し 2 進数 で 保存 され て いる 
FAC 1 
(0015) = 倍 精 度 フ ラク 
(0 0 1 1 ) 復帰 情報 参照 
|「S U B| $BCAE 一 数 値 型 判断 ルー チン 5 一 2 一 1 参照 
$B 4 3 5 一 小数 点 以 下 の 切 り 捨 て 
$ ぉ AF 9 3 一 正規 化 ル ー チ ン 


解説 | 次 の よう な アル ゴリ ズム を 実行 し ます . 

(1) 指数 部 が 単 精度 型 の と き は $ 9 8, 倍 精 度 型 の と き で か つ $ B 8 以上 の と き 
は な に も せ ず に リタ ー ン し ます . 他 の 場合 は 2) へ いき ます . 

※ ここ で 行っ て いる の は 29 の 位 の 位置 を 調べ て いる の で す . 指数 部 が 上 の 数 
値 以 上 の と き は FAC の 内 部 に 小数 点 以 下 が 表 現さ れ て いな いた だ ため, FAC の 
内 容 が その まま INT に な る の で す . 例え ば 0.10X10* は INT を と っ て 
0 0 ※J 02 です, 


2) FAC1 (引数 ) の 正負 に よっ て 場合 分 けし ます . 

(i) 正 の 数 の と き 
その まま (3) へ いき ます . 

(ii) 負 の 数 の と き 
仮数 部 の NEG (2 の 補 数 ) を と り ま す . $0 0 8 1 番地 に $FF を 代入 し 
ます . それ か ら 3) へ いき ます . 


ーー 


(3) 2? の 位 よ り 小 さい 位 (小数 点 以 下 ) を 切り 捨て ます . 


(4) 次 の よう に 場合 分 けし ます . 
(i) 正 の 数 の と き 
その まま (5) へ いき ます . 
(i) 負 の 数 の と き 
仮数 部 の NEG (2 の 補 数 ) を と り , それ か ら (5) へ いき ます . 


5) 止 規 化 を 実行 し ます . 


※(2) や (4) を 実行 する 理由 
INT と は 引数 XX を 越え な い 最 大 の 整数 と いう こと で す . で すか ら , た だ 仮 
数 部 の 切り 捨て を 行っ た の で は F IX に な っ て し まい ます の で , この よう な 処 
理 を 実行 し て いる わけ で す . 例 を 使っ て 説明 し ます . 
例 1 を 御覧 下さ い . 正 の 数 の IN 征 を 行っ て いま す . 簡単 に する だ た め 仮 数 部 
を 8 ビッ ト と し ます (最初 の 0 と 小数 点 は 含ま な い ). 


< 例 1> X メ = テニ 4.75 と し ます . 2 進数 の I NT は 以下 の よう に 行い ます . 
切り 捨て 
0.00000100x2 


0 0 lO00 II 0 00 の 25 
正規 化 
ー> ニー0.10000000X※23 (EX 才 よ 。0 0 と みり ます 


負 の 数 の と き は 例 2 の よう に な り ま す . 
< 例 2> XX ニー4.75 と し ます . 
仮数 部 の NEG を と る . 
X= テ ー0.10011000X23ー ジ テー0.01101000x23 
切り 捨て ( 左 か ら 1 を 入れ て いく ) 仮数 部 の NEG を と る . 
ー み メニ テー0.11111011xX28 一 う X メ ニー0.00000101x258 
止 規 化 
ーー ふみ ニー0.10100000x23 メー ニー5.0 と な り ま す . 
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例 2 で 最初 の 方 の NEG を 取る の を (2) で 行っ て いま す . 次 の 箇所 が 負 の 数 で 1 
NT を 求め る と き の ボ ポイ ント で す . 切り 捨て を 行う に は 2 7 の 位 が 仮数 部 の 右端 
に 来る まで シフ ト す れ ば よい の で す が , 負 の 数 の 場合 に は 1 ビッ ト 右 ヘ シ フト す 
る ご と に 1 を 左端 か ら 1 つ 入 れ て いき ます [これ が $ 0 0 8 1 番地 に $FF を 入 
れる 理由 (※ を 見 て 下さ い )〕]. この 後 , 仮数 部 の NEG を と り ま す [4) の と ころ 〕. 
それ か ら 正 規 化 すれ ば X= テ 5.0 が 得 ら れる わけ で す . 


※ 左 か ら 1 を 入れ る 理由 
負 の 数 の 場合 1 を 切り 捨て る の で は な く , 0 を 切り 捨て る こと に な り ま す . 
つま り 0 と 1 の 立場 が 正 と 負 で は 逆転 する わけ で す . この た め 正 の 数 の と き は 
左 か ら 0 を 入れ る の で す が , 負 の 数 の と き は これ と は 反対 に 1 を 左 か ら 入 れ ま 
す . 


さい . 例 3 が X= テ 1.5 の INT で , 例 4 が XX テー1.5 の INT で す . と ちら 
5 単 精度 実数 で す . 


例 3 X メ = テ 1.5INT を と り ま す . 


|  S$8I| 0074 S8l 
11000000| 0075 10000000 
00000000| 0076 切り 捨て In00000O0O0O 止 規 化 0000000O0O 
00000000| 0077 00000001 00000000 


※ の 所 は 何 が 入っ て いて も よい 


00000000 


=1.5 X=1.0 


2/4 


例 4 X テ ニー1.5 の INT 


X=ー1.5 


IiI000000| 00 


I00000000I 0 6 


00000O0ODOOI 00 


5 仮数 部 の 


00000000 


ー-] ー、】 ー-1 ー-] ー-] 


X=ー2 0 
00000000| 0075 正規 化 中 OnOO000O0O 
00000000| 0076 IO0000000 
IO0000001I0| 0077 00000000 
TXXXxxxX| 007C 


※ の 所 は 何で も よい 


5 一 4 一 9 FIX を 求め る ルー チン 


$B461 
引数 の 整数 部 分 を 求め る . 


A, B, 入 ,。 U り 


FAC1 = 引数 


(0 0 1 7 ) =FAC 1 の 数 値 型 を 示す 数 値 
復帰 情報 | FAC1 = 引数 の 整数 部 分 (数 値 型 は 引数 の まま ) 


| 復帰 情報 
( 0 0 7 C) =FAC1 の 符号 部 
「'S UB 


$B 3 A 0 一 数 値 の 正負 を 判断 する 
も 日 477 一 INT 5 一 4 一 8 参照 
$BDC 9 一 符 号 反転 ルー チン 


解説 | FIX と INT と は 次 の 関係 に あり ます . 


01000000 切り 持て 
NEG 00000000 | 
| 人 本 か らら 


C 1 メメ メメ メメ X| 1 を 入れ る |1 メメ メメ メメ 


仮数 部 の NEG を と る 


$BCB3 一 数 値 型 判 断 ル ー チ ン 5 一 2 一 1 参照 


2/O 


FIX (X) =SGN (X) *INT {ABS (XX)| 


マシ ン 語 上 で は 次 の アル ゴリ ズム を 実行 し て いま す . 
) 数 値 が 整数 型 の 場合 は その まま リターン し ます . 


トー 


ト う 


) X の 符号 に よっ て 以下 の よう に 場合 分 けし ます . 
Gi) 負 の と き 
付 号 を 反転 きせ (3) へ いき ます . 
ii) 止 の と き 
その まま (3) へ いき ます 、 
3) 共 の INT を と り ま す . 
(4) (2⑫) の Gi) の と き は 符号 を 反転 し ます . 


※ (2 の (ii) が INT と 異な り ま す . 


5 一 4 一 1 0 ABS を 求め る ルー チン 


| アド レス | $B3D5 
引数 の 絶対 値 を 求め る . 
| 入力 情報 | FAC1 = 引数 
( 0 0 1 7 ) =FAC 1 の 数 値 型 を 示す 数 値 
FAC1 = 引数 の ABS (数 値 型 は 入力 時 と 同じ ※) 
|WORK | (007C) 
|S UB| $B3C8 写 符号 判定 5 一 2 一 2 参照 
$BE 0 3 一 負 の 整数 を 正 の 整数 に する 


解説 | 次 の アル ブリ ズム を 実行 し ます (引数 を XX と し ます ). 
1 X が 上 EE の だ たき その まま り ク ー ン し ます 。 
(2) XX が 仙 の と き 
Gi) 実数 型 の と き 
$0 07C 番 地 (符号 バイ ト ) を クリ ア し て リタ ー ン し ます . 
ii) 整数 型 の と き 


No 


76 


Ss8000 (一 32768) 婦 外 の と き は NEG (2 の 補 数 ) を と っ て リ り 
ターン し ます 。 
0 $8000 (一 32768) の と き は 絶対 値 が 3 2 768 と な 
の 男 囲 を 人 だ 
に し て 32768 を 表現 し ます (この 場合 以外 は ※ の よう に な り ま す ). 


RW 
S 
は 


5 一 4 一 1 1 SGN を 求め る ルー チン 


$B3BE 

引数 の 符号 を 調べ 正 な ら 1. 負 な ら ー1, 0 な ら 0 を 与え る . 
A, 日 

FAC1 ー 引 数 

(0 0 1 7 ) =FAC 1 の 数 値 型 を 示す 数 値 

復帰 情報 | FAC1 ー 引 数 の SGN (整数 型 ) 

|IWORK | FACT1 


$B3C8… 符 号 判 定 5 一 2 一 2 参照 


|] $B3C8 番 地 を 呼び 出す こと に より B レ ジス タ に 引数 が 負 な ら $ 
FEF, 正 な ら $01, 0 な ら 5$0 0 が 入り ます . この 値 を 整数 と し て FAC1 に 
代入 する の で す が , 整数 は 2 バイ ト デ ー タ で すか ら そ の まま で は 代入 で きま せん . 
そこ で A レ ジス タ を 次 の よう に 換え て D レ ジス タ と し て 2 バイ ト の 整数 を 作り , 

これ を FAC1 に 代入 し ます . その あと $0017 に $0 2 (整数 型 ) を 代入 し 
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朋 6 草 全 


6 一 | ワー クエ リア 一 覧 


(0000 一 0777) まで の ワー クエ リア の 表 で す . 0 0 00 一 00FE ま 
で は 上 位 2 バイ ト を 省略 し まし た . 使用 法 な ど 詳 し いこ と は 本 文 を 御 参照 下 さい . 
な お ,。 1 つの エリ ア が 和 複数 の 機能 を 持つ 場合 が ある の で 注意 し て 下さ い . 


アド レス 機 能 e 解 4 


00 一 02 BAS TIC 起 動 の 際 の SD の 残骸 


03 一 10 玉 使 用 

11 一 12 区 切 文字 カウ ンタ ー: TI NT の 際 の 整数 値 保存 用 (1 1 の み ) 

13 一 14 | 編集 中 の 行 の 長 さ [13) 単独 で 「 配 列 の 次 元 」 が 入る と と も ある ] 
|$00 ・ 単 精度 型 

1$ 00 以 外 : 倍 精度 弄 


倍 精 度 フ ラグ 


ーーー 


に つ に に _ ア 
つ ワ ゃ ゃ 軸 cool - コ | の | cm 


DI M 文 実行 中 ・ フ ラグ (変数 サー チル ー チ ン で 使用 ) 


FAC 1 の 数 値 の 弄 " 


未 使用 


19 | 文字 列 叙 域 不足 フラ グ (ガベージ コレ クシ ョ ン 実 行 直後 に 立つ ) 


抹 字 評価 禁止 フラ グ (変数 サー チ ) 
READ/INPUT フ ラグ 
T AN 場合 分 け フ ラグ 

1E 一 1F の SAC の ポイ ンタ 


〇 ) 


21 一 2Z 現 5AC の ポイ ンタ 


) 


2 2 X レジ スタ の 退避 用 (に リタ ー ン アド レス 

5 ー 26 

の や 本 使用 ー 
森 使 用 


31 一 32 S P (スタ ッ ク ポ イン タ ) 退避 用 な ど 

33 一 34 テキ スト エリ ア 先 頭 番地 

35 一 36 | 単純 変数 格納 エリ ア 先 頭 番地  《6 44」{」 1?1{〔{〔t{《〔 
37 3A | 本 使用 |「UWowhswswsws ゅ らら bk ホ や よ や キ hb も ち E セ じ DM つ つっ っ っ svs ふ kh わら わ ほぼ ち や ぜ た ヤ せ や も た E し 須 
3B 一 3C | 怠 列 座 数 格納 エリ 先頭 番地 99〈W〈W〈〔〈〔t〈{ 
3D 一 3E フリ ー エ リア 先頭 番地 

3F 一 40 文字 列 ス タッ ク 傾 域 最終 (上 限 ) 番地 

41 一 42 文字 列 使用 領域 境界 (SSP : ス トリ ング スタ ッ ク ポ イン タク ) 

43 一 44 別 実 効 ア ドレ ス 

45 一 46 文字 列 ス タッ ク 傾 域 先頭 (下限 ) 番地 

47 一 48 実効 行 番号 (現在 実行 中 の プロ グラ ム テ キス ト 行 番号 ) 
49 一 4A CONT コ マン ド 用 再 ス ター ト 行 番号 

4B 一 4C 対 サ フル ー チ ン 情 報 受け 渡し 用 レジ スタ 


4D 一 4E CONT コ マン ド 用 再 ス ター ト ・ テ キス ト 番 地 


こら 
こつ 
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4F 2 プロ 


実効 ・ テ キス ト 番 地 (現在 実行 中 の テキ スト 番地 , 文 を 実行 毎 に 更新 され る ) 


DATA・RESTORE ボ ポイ ンダ 


99 で 54 
95 一 56 


READ・INPUT コ マン ド 読 み 込 み ポ イン タ 


58 ~- 59 変数 実効 アド レス (変数 本 体 の 番地 , 変数 サー チ 上 ) : 数 値 一 文字 列 変換 の 文字 数 確認 用 
5A ~ 5B 変数 実効 アド レス (変数 本 体 の 番 也 : 代入 文 ル ー チ ン 上 ) 

5C 式 の 優先 順位 

FAC2 の 数 値 の 型 " 
比較 演算 子 オ ー ダ ・ レ ジス タ ( bo : >. 

5F 一 60 員 和 本 プロ ーッ ク 転送 デ ステ ィ ネ ーション 先頭 (下限 ) 

61 一 62 導 向 ブロ ッ ク 転 送 ソ ー ス 先頭 (下限 ) 

文字 列 一 数 値 変換 小数点 以下 の 数 の 保存 

文字 列 一 数 値 変 換 の 小数 点 フ ラグ : 数 値 一 文字 変換 の コン マカ ウン ター 

逆 向 ブロ ッ ク 転 送 デ ステ ィ ネ ーション 最終 (上限) 

F AC 1! の 単 精度 実数 の 退避 用 : V AL 関数 ルーチン 内 で (65) 単独 で も 使用 


て TI 
=、] 


cn | mm 
| の 


63 一 64 
Du で DB 
57 一 58 
ー 文 字 列 変換 の 指数 部 操作 用 

69 一 6A プロ ッ ク 転 送 ソ ー ス 最終 (上限) 


> :te F AC 1 の 単 精度 実数 の 退避 用 


呈す 
て こり 


6D - 6E FAC1 グ の 単 精度 実数 の 退避 用 : SAC 番 地 の 一 時 退避 用 (文字 列 加算 で 使用 ) 
READ・ キ ー ボ ー ド INPUT フ ラグ 
70 一 71 READ・ キ ー ボ ー ド 読み 込み ポイ ンタ 


私 ダイ READ・ キ ー ボ ー ド に よる INPUTT 時 の 読み 込み ボイン タ 退 避 用 


ー コ ( す 
ーー E う 


FAC し 1 の 数 部 


和 0 FAC 1 の 仮数 部 


FAC 1 の 符号 部 


数 値 一 文字 列 変換 の 符号 フラ グ 
切り 捨て 処理 用 レジ スタ 
F AC 2 の 指数 部 
83 - 89 | FEAC2 の 仮数 部 
2 項 演算 の 演算 フラ グ (8 B : 8C) と し て , 文 宇 列 実効 番地 の 一 時 退避 用 と し て 
8D ~- 8E SD の 位置 : 配列 実効 アド レス 計算 時 の 作業 用 アド レス 
8F ~- 90 " 
91 一 92 FN 関 数 の 引数 読み 出し 処理 四 の X レ ジス タ 退 避 用 


9 3 _ WHILE 一 WEND カ ウン タ 


IF ドーELSE カ ウン タ : INSTR カ ウン タ 


こ 呈 | ーー | 一 コ 
う | r 一 1 て ) 


CO 


| co 
し J 


シ 


CO の 


INSTR パ ラメ ー タ (第 1 文字 列 の 文字 数 ) " 症 証 生 

INSTR パ ペラ メー タ (第 2 文字 列 の 文字 数 み カ ウン クタ) 。 
_MIDS 文 ・ 第 1 引数 の 文字 列 変 数 実効 アド レス 
MIDS 文 ・ 文 字数 (第 3 引数 ) 

MI DS 文 ・ 文 字 位置 (第 2 引数 ) 

FOR 文 用 テキ スト 番地 レジ スタ 


| AUTO フ ラグ 
_AUTO 開 始 行 番号 。 
AUTO 増 分 ーー 
LIST・DELETE 範 囲 先 頭 番地 。 
LIST・DELETE 絶 時 最終 番地 
ピリ オド 行 番号 
FOR /NEXT フ ラグ 
トレ ー ス モー ド フ ラグ (TRON/TROFE) 
FN 関数 内 の 読み 込み ポイ ンタ (D 9 一 DA と 表裏 ペア で 使う ) 
エラ ー コ ー ド ーー 
ェ ラ ー 発 生 行 番号 - 
スタ ッ ク ポ イン タ 復 帰 用 の 値 を 保存 する レジ スタ 
ェ ラ ーRESUME フ ラグ ーー 
] RESUME 再 スタ ー ト アド レス 
ON ERROR GOTO 行 番号 
。 式 の 評価 内 で の テキ スト 番地 退避 用 レジ スタ 
PRINTUSING 小数 点 以下 の 文字 数 (小数 点 も 含む ) 
PRINTUSING 小数 点 以上 の 文字 数 
PRINTUSING FORMAT 指 定子 
| 文字 別 ア ドレ ス の 退避 
PRINTUSING 処理 レジ スタ _ 
ファ イル 番号 , 同時 に SF D を 指す も の と し て 使用 きれ る し | クア 
1$8 1 1 一 シス テム 用 
| 入力 アー タ 終 了 フ ラグ 


ファ ンク ショ ンコ ー ド PSET/PRESET/ LINE 文 の 文字 コー ド 
WIDTH 幅 


ク ッ ク X 座標 
ク ッ ク Y 座標 
EZZZPZZ- 
グラ フィ ッ ク Y 座 和 
の SG 
本 

現在 の ポジ ショ ン 
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EF 一 FO CIRCLE 中 心 の X 座 禁 
F1 一 F2 CIRCLE 中 心 の Y 座 笠 
F3 一 F4 CIRCLE 半径 _ 


F5 一 F6 | CIRCLE 比率 
F7 一 F8 | CIRCLE X 座 標 の 上 限 
F9 一 FA CIRCLE Y 座 標 の 上 限 


グラ フィ ッ ク カ ラー コー ド 
C Line 文字 コー ド 
D CIRCLE 出力 ポイ ンタ 
| FE 一 FFP 
0100 問 
017F " 
0180 TIME. DATE、CIRCLE, GET, PUT, RENUM, GCURSOL な どの ルー チン で 用 い 
01A1 られ る 汎用 レジ スタ お よび HARDC の ワー クエ リア (209 バ イト ) 
01A2 時 刻 設定 の と き の 上 位 桁 の 保存 用 


01A2 
( イン ター バル の と き の 割 り 込 み 間 隔 
U 1A3 


01A4 Line Character ノ Dot スラグ 幸 ラ アグ ク ク み 1 MtSU 

01A5 PSET フ ラグ : PSET…0 PRESET…1 

01A6 
01AB 
0 1AC 
0 1AF 
01B0 
01B1 
01B2 
01B3 
01B4 


"エコ 


Display Sub System へ の コマ ンド ・ マ パラメータ を セッ ト し 人 帰 情報 を 得る 倒 域 


割り 込み の 時 刻 ・ 分 ・ 秒 


INTERVAL 央 り 込 み の 20m s 上 で の 割り 込み 間 胸 


(HARDC で 使用 ) 


TIME$, DATE$ の 設定 ルー チン 内 の 有 有 レジ スタ の 退避 


ン レザ リン グ を 行う た びに 寺 1 す る 
(HARDC て 使用) 


2S4 


CO 


| アド レス 


01B5 「 
| ) CHA IN の オプ ショ ン 用 レジ スタ 
| 0 1BF 


| 01B5 
| TIMER の READ で 使用 :SUBIN デ ー タ 
01C9 
01CA 
( (HARDC で 使用 ) 
01D0 
| 1D 1 
0 1 り SW IT 3 に 対す る 割り 込み ベク トル の 応 人 
01D3 
0 1D4 
SWTI 2 に 填 す る 割 1 込み べべ グ ト ル の ) 記 、 谷 
01D6 


01DA 
護 潮 全 0 


| 01DD ー 
) I RQ に 対す る 割り 込み ベク トル の 選 合 
0 1DF 


FI RQ に 対す る 割り 込み ベク トル に 対す る 応答 


01E3 プリ ンタ 出力 禁止 コー ド ーー _- 
01E4 プリ ンタ 出力 禁止 コー ド ( LPT 1 : が ある と する 場合 ) 
01E5 フォ アグ ラウ ンド カラ ー コ ー ド 


バッ ク グ ラウ ンド カラ ー コ ー ド 


N MI に 対す る 割り 込み ベク トル の 応答 


01D7 ーー ー 
2 S W I に 対す る 割り 込み ベク トル の 広 笑 


UNLI ST 行 番 


Mo カセ ッ ト キ ャ ッ プ 出力 定数 : デー タ の 出力 を 行う 前 の モー タ の 状態 が オン な ら $0A(10 
01EA バイ ト )、 オ フ な ら $FF (255 バ イト ) だ け ギ ャ ッ プ ($FF) を 出力 
 。 UIEB デフ ォ ル ト デ バ イス 番号 _ROM モ ー ド …$02 DISK モ ー ド …$80 
上 *ON 一 ” の 処理 エン トリ 
0 1EKE 
01EF ーー 
二 2 一 3 一 4 節 の (4) の [12〕) の 表 2・3・ 1 参照, 予約 語 参 照 テ ー ブ ル 
2 
! EXEC の 開始 アド レス 
02 16 
0219 
) USR0 の 開始 アド レス 
021A | 
| 【 USR1-USR9 の 開始 アド レス (USR0O と 同様 に 2 バイ ト ず つ に 入る ) 


。 022D 
フェ イル ディ スク リプ タ の な い “LOAD" の ジャ ンプ 命令 
022F 
0230 
“FILES” の ジャ ンプ 銘 令 
0232 
| 0 233 - ' 
GET >” の ジャ ンプ 命令 
0235 


2Z6O 


アグ 


人 KILL ア "の ジャ ンプ 命令 (ディスク) 


OPEN の ジャ ンプ 命 年 (ディ スネ スク) 


“CLOSE” の ジャ ンプ 命令 (ディ スク ) 
1 バイ ト 出 力 の ジャ ンプ 命令 (ディ スク ) 


1 バイ ト 入力 の ジャ ンプ 命令 (ディ スク ) 


wINPUT”P の ジャ ンプ 晴信 (デブ ディスク) 


"PEN" 関 係 の ジャ ンプ 命令 (リザ ー ブ プ ) 


-PEN* 関係 の ジャ ンプ 合 令 (リザ ー プ ) が (0251 一 0253) の よう に 3 バイ ト ず つ 
割り 当て られ る 


ブロ ッ ク 入 カル ー チ ン 人 拡張 用 ($⑤DAA6 よ り ) 

解読 ルー チン 拡 哨 用 (⑤C63D よ り ) 

解読 ルー チン 拡張 用 ($ じ 6D8 よ り , BASIC コ マン ド の 拡張 用 ) 
MON 処 理系 拡張 用 ($ABF 4 より) 


CHAIN 後 処理 サブ ルー チン 拡張 用 ($ 8432 よ り ) 


ェ ラ ー 処 理 ルー チン 拡張 用 ($ 8 DD 9 より ) :DISK モ ー ド で 
$7E (JMP), $7EB0 と 設定 


単項 式 の 評価 ルーチン 拡張 用 ($⑤ 91 ED より ) 
行 翻訳 ルー チン 拡張 用 ($C 28E) 


関数 の サー チ , コー ル の ルー チン 機能 拡張 用 ($C622 よ り ) 


2S6 


IM 


1 生 ン 蘭 厨 に 
027D 
027E 
0280 
0281 
02683 
0284 
0 2'8 6 
0267 
0289 
0 28A 
026C 
0 28D 
026F 
0290 
凡 計 は 
0293 
0295 
0296 
02956 
0299 
029B 
0 29 し と し 
029E 
029F 
02A1 
02A2 
0 2AB 
0 2Z AC 
0 2AD 
02AE 
0 2AF 
02B0 
0 半 ン 誠に 和 
02B2 
02B3 
02B4 
由 ': 朋 
02ZB6 
02B7 


機 能 。 ・ 解 Bu 


1 行 逆 翻訳 ルー チン 拡張 用 ($C169 より ) 


関数 の サー チ , コー ル の ルー チン 種類 拡張 用 (も C 5E 2 より ) 


CHATIN 後 処理 ルー チン 拡張 用 ($⑤ 80F 6 より) 


TERM ル ー チ ン 抜 張 用 ($D52D よ り ) 


文字 列 代 人 ルー チン 拡張 用 ($591B7 よ り ) :DISK モ ー ド で 
$7E (JMP) S 7FC4 と 設定 


文字 列 が バッ ファ 領域 の も の か どう か 判別 する ルー チン 拡張 用 ($⑤C7 4F よ り ) 
Abort ル ー チ ン 拡 躍 用 (SD678 よ り ) 

Break チ ェ ッ クル ー チ ン 抜 張 用 ($DB59 よ り /) 

変数 名 ロー ドル ー チ ン 拡 張 用 ($9519 よ り ) 

文字 傾 域 確保 ルー チン 拡張 用 (や 97FD よ り ) : 領域 が 不足 し た と き の 処 理 拡張 用 


ファ イル 名 設定 ・ デ バイ ス 選 択 ル ー チ ン 拡 張 用 (5 CC 3F よ り ) 


IRQ の 割り 込み (外部 か ら の も の ) ルー チン 拡張 用 ($D319 よ り ) 


1 行 翻訳 ルー チン 抜 張 用 ($5C50 2 より ) : コマ ンド 後 処 理 の 拡張 用 


TAB 設 定 テー プル 


Input バッ ファ ポイ ンタ ( 未 使用 ) 


森 使 用 


カセ ッ ト 用 パッ ファ ボ ポインタ カセ ッ ト 及 び PLAY 文 で 用 いら れる バッ ファ の 先頭 アド レス 


デバ イス 分 類 テ ー ブ ル の 先頭 アド レス 


ンジ ステ ム フ ァ イル ディ スク リプ タ の 先頭 アド レス 


PEN 着 り 込 み チ テーブル の 先 足 ア ドレ ス (【( 木 使用 ) 


267 


アド レス 


02B68 
02B9 
0 2BA 
02BB 
0 2 BC 
0 2 BD 
02BE 

02BF 
02C0 
02C9 


0 2CA | ーー 
未 使用 
02CB 
0 2 じ CC 
カセ ッ ト 入 出力 先頭 アド レス 
0 2CD 
帆 み し カセ ッ ト *・ プ ロック の タイ ププ 
02CF カセ ッ ト ・ ブ ロッ ク の 長 さ 
02D0 カセ ッ ト 使 用 フラ グ 
02D1 
02D2 
02D4 


COMn 割 りら 込み の テー ブル 先頭 アド レス 


KEY 割り 込み の テー ブル 先頭 アド レス 


TI ME 割り 込み の テー ブル 先頭 アド レス 


INTERVAL 割 り 込 み の テ ー ブ ル の 先頭 アド レス 


COMn ポ ー ト ポイ ンタ の 登録 テー ブル 


カセ ッ ト ・ バ パッ ファ 中 の ポイ ンタ 


カセ ッ ト *・ テ ー プ ファ イル モー ド 


02D6 カセ ッ ト *・ モ ー タ スイ ッ チ フラ グ 


02D7 カセ ッ ト ・ モ ー タ 状態 フラ グ 
02D8 カセ ッ ト ・ フ ァイル 名 の 画面 出力 フラ グ 

02D9 LE 出力 禁止 フラ グ ' 

0 2DA ファ イル モー ド $10… イ ンプ ッ ト $20… テ ウト プッ ト $40… ラ ンダ ム 

0 2DB ファ イル タイ プ $ 0 0…:BAS 1C ソ ー ス $01…BASIC デ ー タ $0.2… マ シン 語 フ ァイル 
0 2DC アス キー フラ グ $00… バ パイ ナリ SFF… ア スキ ー 

0 2DD ファ イル 名 の 長 さ 

0 2DE 

02E5 


02E6 


02E7 し " ー ] ] 
フ ンション 
0 2ED ァイル オプ ブシ ョ 


02EE LOAD 後 即 実行 フラ グ 


| 02EF 


ファ イル 名 


上 


MERGE 指 定 フ ラグ 
02F0 LOADM フ ラグ 


02F1 
LOADM オ フ セ ッ ト 値 
UP / 


02F3 LOAD (バイ ナリ ) 実行 中 フラ グ 


上 
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6308 
0 0C 
030Dp 
ED 
630F 
0310 PF・ キ ー 表 示 行 数 

4 グル レーク 征 ー 作 ドラ アテ ク 

0313 
0314 
U 人 上 5 


0316 MON 処 理 に お ける SP 退 避 用 
0317 


り 318 RND の 演算 用 レジ スタ 
031B 


091 し R N D の 処理 用 レジ スタ 
031E | 


0 3 00 隊員 
eS 
の 2Y 岸 
提 [ 還 和 」3 
人 ス 品 


MON の D お よび M コ マン ド ・ リ ー ド プラ イト ・ デ ドレ ス 


0 変数 名 の DEF 串 指定 用 テー ブル 
0339 リン クボ ポイ ンタ 傾 域 確 作 用 の ダミ ー コ ー ド 
の 本 テキ スト バッ ファ で 編集 中 の 行 番号 
033B 

0 3 3C _ 

0 4'3 B テキ スト バッ ファ 


ンス テム 人 ( 出 ) 思 用 バッ プティ ァ 
数 値 一 文字 列 変 換 に お ける 文 写 列 バッ ファ 
変数 名 参照 用 テー ブル 

文字 列 作業 領域 (SAC1-SAC10) 


READ/INPUT 処 理系 に お ける ポイ ンタ (D9:DA) の 一 時 退避 用 


0599 INPUT/LINEINPUT フ ラグ 


059A 待 機 中 の BASIC 割 り 込 み の 個数 (セマフォ : Semaphore ) 


269 


Fik 


05A9 イン ブッ ト 継 続 フ ラグ 


し PTO: ブ プリ ンタ の ジャ ンプ テー ブル 先頭 アド レス ( 桁 数 な どの 読み 込み 用 ) 


単色 表示 0… カ ラー $FF… 単 色 


TERM モ ー ド で の PF・ キ ー 割 9 り 込み の 実行 ルー チン の アド レス 
(TERM モ ー ド で な いと き は $000 0 が 入る ) 


0 5C1 
人 NG 
05C3 
05C4 オシ レー タ 1 の 休 符 基本 民 し 4 ) 


1 計 導 多 オン レー タ 1 の ボイス また は エン ご ロー プッ マタ ー ン ( 月 


オジ レー タ 3 の ディ スク リプ タ オジ レー タ 1(005C1ー05C5) の よう に 便 用 


PLAY 文 中 で の エン ベロ ー プ 周期 


割り 込み (IRQO) の マス クレ ジス タ 
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“BUBINI" の ジャ ンプ 和 命令 


"BUBW” の ジャ ンプ 命令 


“BUBR” の ジャ ンプ 命令 


COMn 識 別 フ ラグ 
py プ VR AM コード 
ディ スプ レイ VRAM コー ド 


タイ マ の 割り 込み の ジャ ンプ 命令 


KEY・IN の 割り 込み の ジャ ンプ 稚 令 


FAT 征 へ の 記入 レベ ル 


(PLAY 文 で も 使わ れる ) 
KYBD ジ ャ ンプ テー ブル ポイ ンタ 
SCRN ジ ャ ンプ テー ブル ポイ ンタ 
CASO ジャ ンプ テー ブル ボ ポイ ンタ 
プリ ンタ ジャ ンプ テー ブル ポイ ンタ 
COMn の ジャ ンプ テー ブル ポイ ンタ を 2 バイ ト ず つ 格 納 
将来 入出 力 の デバ イス を 拡張 し た と き の ジ ャ ンプ テー ブル ポイ ンタ が 入る 
SFD (シス テム ファ イル ディ スク リプ タ ) テー ブル 
PEN 割 り 9 込み テー ブル 
COMn 割り 込み テー ブル X 5 (5 バイ ト ず つ ) 
KEY 割り 込み テー ブル xX 10 (5 バイ ト ず つ ) 
TIME 割 りら 込み テー ブル 


INTERVAL 割 り 込 み テ ー ブ ル 
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6 一 2 メモ リマ ッ プ 


この 表 に は ,。 デー タブ ロッ ク を 除い て ,。 主 に エン トリ 番地 の み を 掲載 し まし た だ. 
1 つの 処理 系 に 対す る エン トリ ポイ ント が いく つも 続く よう な 場合 に は , 適 家 有 段 
付け を 行っ て いま す . 
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初期 設定 ルー チン 


っ > | $D2 ルー チン の 内 容 
転送 用 デー タ 本 

87C1 割り 込み ベク トル の 応答 (01D1 一 01E2) 
上 Ma 87D2 転送 用 の 内 容 

67D3 ワー クエ リア (01E3 一 01FB) 
本 87E8 転送 用 の 内 容 

上 プリ ンタ ジャ ンプ テー ブル 転送 用 の 内 容 

張 コマ ンド 用 ・ 解 読 実 行 ル ー チ ン 87FD 
関数 予約 語 サ ー チ *・ コ ー ル ・ ル ー チ ン 88FE デバ イス 分 類 テ ー ブ ル の (06EC~06 
CHAIN 前 処理 メイ ン 8803 F1 ) 転送 用 の 内 容 
CHAIN 後 処理 メイ ン AN ] り 込み ベク ケト ル 転 送 用 の 内 容 
CHAIN オ プシ ョ ン 読 み 込み ルー チン 880F 
CHAIN サ ブフ ブルー チン 群 スタ ー ト 番地 6610 年 *・ 月 ・ 日 (82 年 12 月 1 日 ) 
CHAIN 後 処理 サブ ルー チン な ら び に 8815 (02FA て 02FF) 転送 用 の 内 容 
ェ ラ ー 処 静 ル シー チン 8816 | 標準 関数 の ジャ ンプ テー ブル 
CHAIN 後 処理 茶 サ プル ー チ ン 886B (SGIN INIT DATE) 
じ ERASE 666 し 2 項 演算 子 の 優先 順位 テー ブル 及び ジャ 
コー ルド スタ ー ト 888F ンプ テー ブル ( ベ キ 乗 の み 注 意 ) 
COMn 設定 8890 基本 コマ ンド 及び 2 項 演算 子 の 


ブロ ッ ク 転送 ルー チン (B レ ジス タ 分 ) 
A*・X レ ジス タ 転 送 ル ー チ ン 
コン ソー ル 初 期 化 ル ー チ ン 


先行 入力 禁止 デー タ 


BIOS イ ニシ ャ ライ ズル ー チ ン 
ホッ トス ター トト 

着 り 込み ベク トル 設定 ルー チン 
T AB 設定 ルー チン 

PF ぃ キー イニ シャ ライ ズル ー チ ン 


電 涼 投入 時 の メッ セー ジ 
NULL ($007) 


COMn の ジャ ンプ テー ブル の デー タ 


PF・ キ ー の デー タ 


BA2B 
6AZC し 
GAD6 


8ADA 
8B71 
8B7 2 
BD2.2 
8D23 
8D56 
8D57 
8D60 
8D61 
8D68 
8D69 


(8D6B) 


6D93 
6D95 


予約 語 綴 り リ テー ブル 


基本 関数 の 予約 語 綴り テー ブル 


基本 コマ ンド ジャ ンプ テー ブル 


基本 予約 語 索 引 テ ー ブ ル 
基本 予約 語 案 引 用 の アル ファ ベッ ト 順 
見 出し テー ブル 


| R eadV 」 メッ セー ジ 文字 列 


「Break」 メッ セー ジ 文 字 列 


スタ ッ ク 上 | の ネス ティ ング タグ 頒 索 は 

陣 。 
逆 向 ブロ ッ ク 転 送 (メモ リフ ル テ ス ト 付 ) 
逆 向 ブロ ッ ク 転 送 (メモ リフ ル テ ス ト な 
し ) 


GDAA 


メモ リフ ル テ ス ト 1 

メモ リフ ル テ ス ト 2 

X 十 B 王 失 

コト 

に 2 3 2 人 凍 は 

Out of Memory エラ ー 
Direct Statement In File エ ラー 
エン トリ 

ェ エラー 処理 ルー チン エントリ 
メイ ン ・ ブ プロ ンプ ト 表 示 部 
(Break ・Error・Abort 用 ) 
(「 Ready」 出力 ) 

テキ スト 作成 ルー チン エン トリ 
行 番号 サー チル ー チ ン 


NEW (1)[NEW コマ ンド ・ エ ント リ ] 


NEW (2) 

NEW (3) 

NEW (4 [CLEAR 文 相当 」 

NEW 5) 

NEW (6) 

NEW (7) 

RES TOKE 

RESTORE 初期 化 

END ルー チン 先頭 

Break エン トリ 

STOP 

暗 桂 END 用 エン トリ 

CONT 

RUN 

GO 

GOSUB 

GOTO 

RETURN 

Keturn Without Gosub エラ ー 
Undefined Line Number エラ ー 
DATA 

REM 及 び ELSE 
非 実行 文 の 処理 1 
非 実 行文 の 処理 2 

IF 一 THEN 一 ELSE 
ON ( 式 ) お よび ON 
ON ( 式 ) GO 


KK LT 


9162 
9195 
B3 
91E6 
91ED 
9286 
9 2 8 し 
926F 
9292 
9294 
9ZA0 
92BE 
9 2Z し 3 
93654 
9 3 し D 
93E6 
F ド 4 
94 1 1 
9433 
6B 
94A6 
94 し 5 
94 し じじ 
94FD 
9506 
950F 
(9570) 
95AF 
し 7 
95D9 
DE 
95E6 
(966E) 
(96BC) 
9663 
97 2Z し 
97 4 し 
4D 


9752 
9760 


行 番号 読み 込み ルー チン (文字 ーッ 行 番号 ) 
し ETーー 代 入 文 処 理 一 (レイン ) 
LET (文学 列 代 入 ) 

Missing Operand エラ ー エ ント リ 
単項 式 評価 ルー チン 

*(* 十 式 の 評価 十 ")* 

右 カ ッ コ ” ) "チェック 

左 ガ カッ コ " ("チェック 

オツ で 。 チュウ グ 

任意 の 文字 コー ド の チェ ッ ク (B-reg) 
SYhtiax Error エン トリ 

式 の 評価 十文字 型 エ ラー の 型 判断 


の 第 仙 


式 の 詳 価 : 36 4 一 倍 精 度 用 
FAC1 を FAC2 <9374 一 単 精度 用 
除算 / 9384 一 整数 用 
PSHS FAC1 

PSHS FAC1 (FN 関数 用 ) 

PULS FAC2 OR _ $94AD 
比較 演算 メイ ン 4 
文字 列 の 比較 演算 UIMP 一 -94BC 
AND, OR, XOR, EQV, IMP……| 


DIM (配列 変数 の 登録 ) 

委 設 名 一 変数 名 参照 用 テー ブル に ロー ド 

アル ファ ベッ トチ ェ ッ クル ー チ ン 

数 字 チ ェ ッ クル ー チ ン 

委 数 サー チ (変数 検索 。 読み 出し 、 な 録 ) 

新 変 数 登録 プロ ッ ク ・ エ ント リ 

変数 検索 ルー チン 

変数 識別 子 作 成 ル シー チン 

正 整 数 デー タク 評 価 シ ー チ ン ( 式 の 評価 付 ) 
の | 提 E ) 

配 外 変 数 サー チ (検索 , 登録 な ど ) 

新 *・ 配列 変数 登録 プロ ッ ク ・ エ ント リ 

配列 要素 の 実務 アド レス 割り 出 し ブロ ッ ク 


lllegal Function Call エラ ー 


FRE 関数 

1 バイ ト 芝 数 ・ 最 終 評 価 &FAC1 格納 
整数 天 デ ー タ * ン 

※ 上 の 2 つの ルー チン で は D レ ジス タ 
ラド ACI と 整数 型 宣言 が 行わ れる 
STRS 関 数 

文字 別 デ ー タ の 読み 出し ルー チン 


29J 


9790 
94 


9799 
9B 
9D 
9F 
A6 

97 AD 


97D7 
980D 
9850 
9865 
987C 


98AE 
96E4 

E6 
96F 1 


F 4 
F7 
F9 
991B 
1F 
992A 
2F 
9933 
9947 
9952 
996F 
9J979 
9 し 
99BA 
BC 
BF 
99CA 
99F9 


FD 
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| 


文字 列 格納 領域 確保 。 一 時 的 SAC 格納 
一 時 的 に SAC (7Eー80) に SD を 
格納 


文字 列 定数 な どの 読出 し 評価 ルー チン 1 


が ワ 
が う 
アア 4 


文字 列 格 納島 域 確保 &z 最終 評価 ルー チン 
文字 列 式 の 最終 評価 ルー チン (SACK 結 果 


を 格納 : 文字 列 型 関数 の 出口 ルー チン に 


当たる j SAC に 番地 ーーFAC1) 
文字 列 格納 用 の 領域 を 確保 す る ルー チン 


ガベージ コレ クジ ショ ン * エ ント リ 


| 文字 列 ゴ ミ 化 ル ー チ ン 
| 文字 列 リ ンク ポイ ンタ の 修正 ルー チン 


文字 列 型 配列 変数 ・ 転 送 後 の 文字 列 リ ン 
ク ポ イン タ 修 正 ル ー チ ン 
文字 列 加算 ( 十 ) 
文字 列 転送 ・ 代 入 1 (SD に より ) 
ク 2 (XC に より ) 
文字 列 実効 番地 読み 出し &SAC つ ぶし 
( 式 の 評価 か ら ) 
同上 ( 型 判 断 か ら ) 
同上 (FAC1 読み 出し か ら ) 
同上 (文字 数 読み 出し か ら ) 
SAC つ ぶし 】 
が の 
LEN 関 数 
文字 列 実効 番地 読み 出し 改 文字 数 テス ト 
CHRS 関数 
ASC 関 数 
LEFTS 関 数 
RIGHTS 関数 
MID$ 関数 
MID$ 関数 用 サブルーチン 
式 一 1 バイ ト 整 数 デー ターBreg ① 
? の 
8 ③ 
VAL 関 数 
コン マ で 区 切ら れ た 引数 の 評価 
[整数 化 一 (4 B: 4C) : Breg]〕 
コン マ 以 降 の 式 の 評価 一 Breg 


9A02 
9A05 
9A2 2 
9A25 
9A26 
9A30 
9A3A 
9A50 
9A7F 
9AB3 
9AC0 
9B47 
9B50 
9B68 
9B7E 
9B9F 
9BB5 

BE 
9BD4 
9BDB 

F3 

F6 
9C22 
9C25 
9C2B 
9CD4 
9D59 
9D7B 


(9D91) 


9DC1 
9E2C 
2D 


(9E76) 


9E7E 
9 4 
A5 
9ECC 
CE 
9ED1 
9FO0B 
9F5C 
9F62 


式 の 評価 十 整 数 化 X レ ジス タ 
FAC1 一 整数 化 つ レジ スタ 


単 精度 型 定数 「65536」 


PEEK 関 数 
POKE 文 
行 番号 定数 の 評価 ルー チン 
TAB(  ) 関数 の 処理 
LPRINT 
PRINT 
PRINT 実行 ルー チン 
X 座 標 が 0 で な けれ ば 改行 する 
改行 セー チン 
PRINT 文 中 の 「 , 」 の 処理 
PRINT 文 中 の 「 : 」 の 処理 
出力 が プリ ンタ か どう か チェ ッ ク 
SPC (  ) 関数 の 処理 
空 日 出力 処理 ルー チン 
空白 出力 実行 ルー チン 
EUC ザン 
同上 (PRINT 文 な どか ら ) 
同上 (SAC を 考慮 し な いも の ) 
空白 を 1 つ 出 力 す る ルー チン 
「? 」 を 出力 する ルー チン 
PRINT@ (漢字 ) 実行 ルーチン 
INSTR 関数 
STRING 関数 
SPACE$ 関数 
MID$ 文 用 サブ ルー チン 
MID$ 文 
HEX$ 関数 
OCTS 関数 
HEXS, OCT や 用 サブ ルー チン 
& 定数 9EBA 
&w 〇 定数 ) 
Q& 日 定数 リ 9ECB 
(4B: 4C) 一 行 番号 と し て 出力 
D レ ジス タ 一 行 番号 と し て 出力 
LIST 出力 ルー チン ・ エ ント リ 
LIST・DELETE 範囲 の 検索 
文 の 終結 チェ ッ ク (構文 チェ ッ ク ) 
LIST な どの 人 行 番号 評価 ルー チン 


右 の 定数 の 処理 の た 
め の サ プ ブルー チン 


人 


9F73 
7 6 
79 
7C 
9FBC 
D3 
9FE7 
A01A 
1B 
A07F 
A203 
A2C7 
A36D 


A43F 
A445 
A446 
A70E 
A70F 
A739 
A744 
A784 
A7A9 


し 4 
A7D9 
DF 
ドム 
A80E 
AS81F 
AA82A 


(A892) 
(A925) 


A952 
A969 

80 
A9A0 
A9CA 


DEFSTR 
DEEINT 
DEFSNG 
DEFDBL 
DELETE 

テキ スト 一 部 消去 (DELETE 用 ) 
AUTO コ マン ド 処 理系 
TRON 
TROFF 
PRINT USING (一 A202) 
FOR エン トリ 
NEXT エ ント リ 
WHILE・WEND 用 

ネス ティ ング 対応 チェ ッ ク ル ー チ ン 
(WHILE・WEND の 数 を 

カウ ント する : 一 A43E) 


ー ム 36 し 


PRKINT _ USING 処理 茶 の 飛 び 地 


エラ ー メ ッ セ ー ジ 群 (41 種類 ) 
[ ROM モ ー ド の も の の み j] 
ON ERROR GO エン トリ 
ERROR 文 エ ント リ 


REKSUME 

SW AP 

X レ ジス タ why am 
の 指す 変数 の 指す 変数 | ルー チン 


文字 列 変数 の リン クボ ポイ ンタ 交 換 

DEF 

DEF FN 文 処理 ルー チン 

FN 関数 名 登録 プ ブロック 

FN 関数 名 サー チル ー チ ン 

"Illegal DirectY の チェ ッ ク 

FN 関数 処理 系 (て A951) 
(AAIAB) を きみ (D 9:DA) 

文字 列 型 引 数 の 評価 ルー チン 

VARPTR 関数 

DEF USR 文 処理 ルー チン 

USR ジャ ンプ テー ブル 番地 の 読み 込み 

USR 関数 

RENUM コ マン ド ・ エ ント リ 
RENUM 処 理系 サブ ルー チン 閣 は 
$ ゃ A9BD 一 $ABF3 の 男 囲 に ある 


ドレ ス 
A9CA 


AAZE 
2F 
AAA6 


AB73 
AB9A 
ABF 4 


AC2F 
AC37 
SD 
AC54 
=》 
6 し 
AC95 
A じ CC4 
ACFB 
AD36 
AD46 
47 
AD54 
AD81 
B 1 


ADD7 
ADDC 
ADF0 
AE69 
AE8C 
AEAF 


AEB7 
AEBC 


1 
AEC9 


AECA 
AED1 
AED2 


RENUM メ イン ルー チン (一 AA2D) 
RENUiM 一 パス 1 


RENUM 一 パス 3 

RENUM 一 パス 2 ュ ユーザ は , と の ル 

ンー gr ユー シー チン を 押 コ 

( 行 番号 スタ ッ ク ー ル する と と が で 
きる 


パパ スー3 用 サブ (人 行 番号 付け 地 し ) 
RENUM 一 パス 4 (エラ ー 検 出 ) 
MON コマ ンド 処 理 

メイ ン ル ー チ ン (一 AC2E) 
コマンド 
16 進 4 桁 (2 バイ ト ) 出力 by Dreg 
16 進 2 桁 (1 バイ ト ) 出力 by Areg 
16 進 2 桁 入 カー*B-reg (1 バイ ト ) 
MON 用 1 行 入 力 ル ー チ ン 
16 進 4 桁 入力 ー+D-reg (2 バイト ) 
M コ マン ド 


D コ マン ド 
R コ マン ド 
レジ スタ 名 を 表す 文字 列 導 
は 。 8 me の 
レジ スタ 名 出力 ルー チン 
WHILE 
WEND 
(タッ クト の ネス ティ ング 情報 の 検索 
(WHILE 用 ) 


Wend Without While エラ ー 

HARDC 

HARDC0 実 行 ル シー チン 

HARDC 1 実行 ルー チン 

HARDC2 実行 ルー チン 

HARDC 用 アク ティ ブ VRAM 
変換 ルー チン 

HARDC 用 アク ティ ブ VRAM 
逆 変 拉 ル ー チ ン 

HARDC 1 の と き デ ィ ス プレ イ VR AM 
コー ド に よっ て 設定 され る 黒 印字 カラ 
ー 指定 パ イト と 灰 印 字 カ ラー 指定 パイ 
トド の 0 が ンタ KM すり 

HARDC 2 の と き 同 様 に 設定 され る 
県 国学 カラ ー 指 定 バ イト の デー タ 

ANPORT 
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AF0C 
AF11 
AF1A 
AF97 
B00A 
B044 
B066 
ら 0099 
B06C 
BO06E 
B0A9 
B0AA 

EE 
B1BA 
B1 DF 
BZ03 
B206 
BZ19 
BZ1F 
B221 
B226 
BZ234 
BZEC 
B301 
B32B 
は ささ 0 
B337 
B35F 
B360 
B3A0 
BSBE 

し 0 

C6 
B3D5 
BJE] 
B3EC 
B435 
B461 
B472 
B506 
B50B 
B60E 
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FAC1 十 0.5 

実数 減算 ルー チン 

実数 加算 ルー チン 
正規 4E ル ルーチン 

丸め ルー チン 
Overflow エ ラー エン トリ 
切り 捨て ルー チン 


デー グ 1. 000U 


LOG 演算 デー タ 


LOG 【〔 自 然 対数 ) 

実数 乗算 ルー チン 

メモ リ 上 か ら FAC 2 数 値 格納 
汎用 指数 部 演算 ルー チン 
Overilow エラ ー エ ント リ 
FAC1*10 


が DU 


Divusion By Zero エラ ー エ ント リ 
FAC1/10 

実数 除算 ルー チン 

FAC3 一 FAC1 (仮数 部 りみ ) 

メモ リ か ら FAC1 へ 数 値 転送 (Xreg) 
FAC1 の ワー クエ リア 退避 (B330 も ) 
FAC1 つ っ (5A:5B) が 指す メモ リ 域 
FAC1 を メモ リド を 数値 転送 (Xreg) 
FAC2 ーFAC1 数 値 転送 

FAC1 一 FAC 2 数 値 転送 

FAC1 (実数 型 ) の 符号 判定 

SGN (符号 ) 

B レジスタ を 整数 化 

符号 判定 ルー チン 

ABS ( 絶 対 値 ) 

FAC1, FAC2 比較 ルー チン (実数 ) 
FAC1, メモ 『 リ 比較 ルー チン (実数 ) 
切り 捨て ルー チン 2 

FIX 

INT 

文字 列 一 数 値 変換 ( 倍 精度 基本 ) 
文字 列 一 数 値 変換 (整数 基本 ) 

「In、( 行 番号 )」 の 出力 


B615 
B616 
B61B 
B620 
B622 


BA6 2 一 ED 


BAEE 
BAF7 
BB36 
BB5A 
BB5B 
BB94 
BBA3 
BBEo5 
BBFE 
BC4E 
BC7 3 
BC7 4 
BCA5 
BCA9 
BCAE 
BCB3 
BCC 1 
BCCD 
BCD5 
BCE0 
BCEE 
BCFE 
BD19 
BD2 9 
BD3F 
BD44 
BD4D 
BD5 2 
BD7 93 
BD7S 
BDC9 
BE0C 
BE4 4 
BE60 
BE66 
BEB1 


Dreg 内 の 整数 出力 【 行 番号 出力 用 ) 
符号 無し 整数 の 出力 【 行 番号 出力 用 ] 
実数 の 出力 (符号 な し ) 

数 値 一 文字 列 変換 シー チン 


数 値 一 文字 列 変換 ルー チン (フォ ー マ ッ ト 付 ) 


・ 数値 一 文字 列 変換 用 デー タ 
SQR (平方 根 ) 
ベ キ 乗 ル ー チ ン 


EXP 休 算 デー タ 


EXP 

多項式 
多項式 2 
RANDOMIZE 
RND (乱数 ) 


|「Random Number Seed」 データ 


CTINT ( 刺 数 化 ル ー チ ン ) 

FAC1 ・ 型 判断 (文字 列 型 以外 エラ ー) 
Type Mismatch エラ ー エ ント リ 
FAC1・ 型 判断 (文字 列 型 エラ ー) 
FAC1・ 型 判断 (エラ ー な し ) 

数 値 型 の 強制 変換 (Areg (オーダ) 
CDBL ( 倍 精 度 化 ルー チン ) 

単 精度 型 一 倍 精 度 型 変 換 シ ルー チン 
CSNG ( 単 精度 化 ル ー チ ン ) 

倍 精度 型 一 単 精度 型 変換 シー チン 
腺 数 型 一 単 精度 型 変換 シー チン 
(76 : 77) 符号 無 整 数 を 単 精度 化 


行 番号 定数 用 
整数 ・ 実 数 判断 ルー チン (演算 用 ) 


滅 算 一 

整数 同士 の 減算 

加算 

整数 同士 の 加算 

乗算 * 

整数 同士 の 乗算 

FAC1 の 符号 反転 

\ (整数 除算 ) : BE33 MOD 
数 値 比較 演 條 (< く 。 = テ 、。 >) 
COS (余弦 関数 ) 

SIN (正弦 関数 ) 

TAN ( 正 接 関数 ) 


PL 


盾 8 
BEF4 
BEF5 
2 
BF47/ 
BF48 
BF/ 1 

7 2 
BFB0 


BFCU 
BFDD 
F 3 
F7 


(COF4) 
(C10E) 
( じ 1327 
( じ 13A) 
(C1 4D) 


じ 156 
し 168 


C169 
CZ66 
C490 


し 495 
(し 526) 
し 5E2 
C63D 

5D 

7A 
(C680) 


(C6DB) 
C6ED 
C72F 
C730 
C750 
C760 


SIN, COS, TAN 演 算 デ ー 
ATN ( 彰 止 接 関 婦 
ATN 洒 算 デー タ 


LINEINPUT エ ント リ 
INPUT オー タ 読 み 込 み ル ー チ ン エ ント リ 
LINEINPUT ルー チン エン トリ 
INPUT/LINEINPUT 用 
1 行 入力 ルー チン *・ エ ント リ 
INPUT 入力 ミス の 処 理 ル ー チ ン 
[INPUT コマ ンド ャ エン トリ 
READ エ ント リ 
READ/INPUT 共 用 
メイ ン ル ー チ ンス ター ト (一 C155) 
定数 スキ ッ プ ルー チン (READ 用 ) 
DATA 文 サー チ (READ 文 用 ) 
1 パス / 2 パス 制御 プロ ッ ク 
2 パス の 場合 の パス 1 エン ディ ング 
READ/INPUT エ ン デ ィング プ ブロック 


I「?Redo From Start |] メッセージ 


1 行 逆 翻訳 ルー チン (一 C287) 
1 行 家 訳 ルー チン (一 C5E1) 
アル ファ ベッ ト デ テス ズ スト ルー チン 
(小文字 有 大 文字 変換 付き ) 
身 小 文字 三 大 又 字 変換 ルー チン 
1 行 翻 訳 ・ 行 番号 定数 処理 ルー チン 
模 準 関数 コー ルル ー チ ン (一 C6 3C) 
解 謗 実行 ルー チン (メイ ン ) (一 C6EC) 
エラ ーー 処理 ル ー チ ン か ら の エン ト 】 
タダ タイ レク ト 実 行 用 エン トリ 
解読 実行 ルー チン (サブ) 
き 各 コマ ンド 処理 水 へ 分 岐 する 場所 
暗 詩 END 如 理 プ ブロック 


者 略 形 キー リー ド * 結 り テテ 一 ブル 


リン ク ポ イン タ 修 正 ル ー チ ン 

バッ ファ 傾 域 の 文字 列 か どう か を 判断 
数 字 チ ェ ッ ク 必 空白 スキ ッ プ 

($ お D2, D8 ルー チン の 延 長 ) 


し 75F 


し 7 7B 

BB 
し 7 BE 
じ 7 し A 
じ 7F 1 
C81 4 
C85F 


C87B 
C8BC 
C8EA 
C8EF 
C8FO 
C912 
C923 
C92A 
C947 
C953 
C9D8 


C9E6 
C9F9 
C9FA 
CA02 
CA06 
1 6 
70 
7 3 
7 6 
CA8D 


AA4 
CAAE 
CAB] 
CAB6 

BA 

DD 

ト ( 
CAE4 

E6 

ド 7 


EXEC 文 エン トリ 


CLEAR コマ ルド エ シ ント リ 

Out Of Memory エ ラー エン トリ 
式 の 評価 一 整数 一 Breg (上 限 値 付 ) 
COLOR 


CCLJLKOR モ (レッ ド 。 か み ラ アー 
CONSOLE 

式 の 評価 一 整数 スタ ッ ク ("7 の チェ ッ 
ク も 行う 】 

WIDTH 


画面 設定 ルー チン 
画面 設定 ルー チン 用 の BIOS へ の 
KR らし ロ デー メア 

LOCATE 

UNLIST 

CSRLIN 

POS 関 数 

LPOS 関 数 

ド TRGQU 

行 番号 定数 評価 一 サー チー 番地 格納 
(「ON 一 割り 込み 」 用 の 行 番号 サー チ ) 
CAS0 用 の ジャ ンプ テー ブル 


カセ ッ ト EOF 

カセ ッ ト LOF 

カセ ッ ト オー ズン ルー チン 

モー ド “O" 処理 

カセ ッ ト 用 ポイ ンタ の 初期 化 ル ー チ ン 
"1* 処理 

ファ イル の 属性 の 設定 

カセ ッ ト 1 ブロ ッ ク 入 力 (デバ イス ーー カ 
ギ セット 用 バッ ファ ) ルー チン 

カセ ッ ト 用 ポイ ンタ の 設定 

Device I Use エラ ー 

Device I/O Error エ ント リ 

カセ ッ ト ク ロー ズ 
アウ ト プ ッ トモ ー ド 処理 
カセ ッ ト 終 了 処 理 

カセ ッ ト 使 用 フラ ク グ 解除 
LOAD ? 

SKIPF 

ェ エン ドブ ロッ ク まで の 読み 飛ば し 


モー ド 


ルー チン 
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機 能 ・ 解 説 機 能 ・ 解 説 


し B02 


CBIE 


し じ B36 


36 
CB4D 
CB57 


っ 9 
は 5 
A6 


AD 
CBB5 
CC1 4 
し CZ 4 
じじ 2Z5 
し じじ 2 し 
し じ し ZD 
じじ 33 
じじ し 34 
し じじ 37 

3 し 


A し 
じ 5 
し し CFC 
CD0 1 
CD0E 


CD2 0 
Z 4 


CD3E 

SD 
CD7 1 
CD7 9 

80 
CD86 
CD96 


カセ ッ ト ] バイ ト 人 入力 (カセット 用 パッ 
ファ より ) ルー チン 

カセ ッ ト 1 バイ ト 出 力 ( カ セット 用 バッ 
ガン の 06 Mae 2 

カセ ッ ト 1 ブロック 出力 (デー タブ ロッ 
ク : カ セッ ト 用 バッ ファ か ら ) ルー チン 
同上 (任意 の タイ プ の ブロ ッ ク と し て ) 
カセ ッ ト ポジ ショ ンチ ェ ッ ク 


ーー 


メロ ダウ みみ まだ は 。 デー アア ァイル の ヘッ 


ダ 才 み 込み ルー チン 

上 (画面 表示 を 行わ せな い 場 合 ) 

メッ セー ジ 画 面 出力 ルー チン 

メッ セー ジ 及 び カ セッ ト 上 の ファ イル 名 
画面 出力 ルー チン 

カセ ッ ト の ファ イル 名 画面 出力 ルー チン 

引 Ro 


ISearching 」 の デー タ 


IFound : |】」 の デー タ 


[Skip・ こ 」 の デー タ 


じじ C37 の FfFILES 」 用 エン トリ 

ファ イル 名 ・ デ バイ ス 番 号 設定 ルー チン 

同 上 

「LOAD?」「SKIPF」 用 の エン トリ 

ファ イル 名 の 転送 処理 

デバ イス 番号 設定 処理 

Bad File DDescriptor エラ ー 

15 まま ア ドリ 

ブロ グラ ム フ ァ イル 用 の ファ イル 名 ・ 

デバ イス 番 号 設 定 シ ー チ ン 

アス キー セー ブ プ 前 処理 ルー チン 

アス キー セー ブ / LIST 
共通 前 処理 ルー チン 

SAVE エ ント リ 

プロ テク ト 変 換 処理 

プロ テク ト 和 変換 用 初期 設定 

プロ テク ト 変 換 ル シー チン 1 

プロ テク ト 変 換 シ ー チ ン 2 

まま SE 

プロ テク ト 変 換 ル シー チ ン 3 


し じ DA6 


上 
DCO 


じ D じ 6 

じ 6 

し じ A 
し じ DCF 

D6 
CDF0 
し じ DFC 

FE 
CE0 4 
CE4B 

4D 
し E7S 
CE8 1 
CE6D 
CE90 
CEA3 
CEA8 
CEDC 


DF 
PE 1 
CEF 4 
CEF7 
CEFC 
C ド OA 
じ ド 22 
29 
J 1 
7 7 
A3 
じ 6 
D3 
0 1 1 
D027 
D030 
D0CB 
6D 


プロ テク ト セ ー プ 実行 。 及 び ぴ び プ ブロ テク ト 
逆 秋 換 ルー チン 

プロ テク ト 逆 変 的 ルー チン 
PEEK, POKE 用 の プロ テク トチ ェ ッ 
クル ーー チン 
の が グル ュー ッ ツ ルー すず ツン 
RENUM か ら の UNLIS 十 エラー 
Protected Program エ ラー 
バイ ナリ セー ブル ー チ ン 
パイ ナリ セー プ (プロ テク ト 用 ) 
式 の 評価 一 珠 数 スタ ッ ク (2 バイト) 
ノバ イト 出力 ルー チン (SAVEM 用 ) 
1 バイ ト 出 力 ル ー チ ン (SCDFC 用 ) 
SAVEM 
クロ ー ズ 実行 ルー チン 
同上 (ファ イル 番号 を 指定 ) 
CLOSE 
すべ て の ファ イル を クロ ー ズ する 
CE90 に 同じ (ママ.、 マ の チェ ッ ク 付 ) 
ファ イル 番号 設定 ルー チン 
Bad File Number エラ ー 
OPEN 
ファ イル オー プン ルー チン (イン プッ 
トモ ー ド ) 

同上 (アウ トブ プッ トモ ー ド ) 

同上 (任意 の モー ド ) 
Bad File Mode エラ ー 
File Alreadv Open エラ ー 
ディ スク 以外 の デバ イス の オー プン 処理 
Device Unavallable エラ ー 
omo ド 凡 RUN RU | ト エ ント す ) 
ロー ド (IMERGE」 エン トリ ) 
ロー ド (「LOAD」 エ ント り リ ) 
ロー ド (| CHAIN |」 エン トリ ) 
ロー ドド 前 処理 / ル レー チ ン 
ロー ド (バイ ナリ ) 前 処理 ルー チン 
バイ ナリ ロー ド 実 行 ル ー チ ン 
ロー ド 後 処理 ルー チン 

1 バイ ト 入 力 (エラ ー 付 ) ルー チン 
LOADM 
2 hk ルー の ジン 

1 バイト 和 信 力 (SDO6B 用 ) ルー チン 


D2AA 
D2B5 
D2Z し D 
D2FC 
D39C 


D3A5 
D3B4 
D3C2 
D407 
D411 


D り 41D 
D426 
2 
5 
D444 
D446 
D459 
っ 


6 4 


1 バイト 和信 人力 ル ー チ ン 
1 バイ ト 出 力 ル ー チ ン 
ポジ ショ ン ・ デ バイ スチ ェ ッ クル ー チ ン 


ファ イル チェ ッ ク ル ー ナ チン 


ファ イル モー ド チ ェ ッ ク (アウ ト プ ブッ ト ) | 


ファ イル モー ドド チェック (イン ブッ ト ) 
EOF 

LOF 

ファ イル 番号 (1 一 16) チェ ッ ク 
同上 ( 式 の 評価 な し ) 

INPUT$S 関数 

COMn クロ ー ズ ルー チン 

COMn オー プン ルー チン 

オプ ショ ン 処 理 

オー プン 実行 (D 1AD 中 ) 
8251A (USART ) 設定 ルー チン 


オプ ショ ン の デー タ 値 


COMn 1 バイト 出力 ルー チン 


1 パイ ト 送 信 ル ー チ ン 

送信 イネ ー ブ ル 待ち ルー チン 

COMn 1 バイ ト 入 力 ル ー チ ン 
Buffer Overflow エラ ー 

IRQ 

LPT0 及び COMn の ポジ ショ ンチ ェ 
ッ グ 

COMn EOF 


COMn LOF 


BASIC 割 り 込 み の 細 件 ルー チン 
ON COM へ の エン トリ 


[ON (割り 込み ) GOSUB」 文 の 行 番号 


より 割り 込み テー ブル に テキ スト 番地 を 設定 
1GO0SUB」 チェ ッ ク 

COMn の 割り 込み テー ブル の 頭 出し 
同上 (B レ ジス タ に ポー ト 番 号 ) 

同上 (テキ スト か ら 式 の 評価 を し て ) 
COM エ ント リ 

COMMON 

COM ON/ OFF/STOP エ ント リ 
BASIC 割 り 込 み の ON/OFF/STOP 

制御 を 割り 込み テー ブル KEK 設定 する 


| OFF 処 理 


D4F7 
D50E 
D517 
D516 
D523 
D5Z6 
D52D 
D5AZ 
D5D6 
D5E3 
D5 EC 
り 5FO 
D5F6 
0 O 
D60C 
D60D 
D614 
D615 
D617 
D62ZB 
D64 ム A 
D659 
D670 
D67 7 


ON 処理 

STOP 処 理 

BAS1C 割 り 込 み が 発 生 し た 割り 込み 
尋 理 ルー チン を 待機 させ る 

BASIC 割 り 込 み の 初期 化 ル ー チ ン 

BASIC 割 9 り 込み の 初 期 化 ルー チン の 
BIOS へ の RCB デ ー タ 

サブ シス テム の SET TIMER 用 の 
コマ ンド 及び パラ メー タ 

TERM モ ー ド で の PF・ キ ー 
視 り 込 み 処 理 ル ー チ ン 

TERM モ ー ド で の 
P ド ・ キ ー の 婚 理 ルー チン 

PF6 の 処理 

PF7 の 処理 

PF8 の 処理 

PF10 の 処理 

111 ms 時 間 待 ちん ルー チン 

TERM モ ー ド で の PF・ キ ー 処 理 の 
ジャ ンプ テー ブル 

TERM の オプ ショ ン 転 送 ル シー チン 

プッ トウ エイ ト 禁 止 ル セー チン 

プッ トウ エイ ト 選 択 ル ー チ ン 

TERM 

TERM メ イン ルー チン 

TERM 処 理 0 

TERM LOF チ ェ ッ ク 

TERM 処 理 1 

TERM 処 理 2 

TERM 処 理 3 


TERM の オペ ラン ド 省 略 時 の デー タ 


TERM の 各 処 理 へ の ジャ ンプ テー ブル 


プリ ンタ クロ ー ズ ルー チン 
プリ ンタ 1 パイ ト 出 力 ル ー チ ン 
改行 用 プリ ンタ 1 イト 出力 ルー チン 
プリ ンタ 改行 ルー チ ジ シン 
プリ ンタ の レデ ィ チ ェ ッ ク と 1 バイ ト 出 力 
プリ ンタ ルー チン の BIOS へ の RCB 
デー み ($⑤D670 一 … LPCHK, 

ゅ D672ー …LPOUT] 
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D678 
D6AD 
D6B4 
D6B5 


D6D8 


D730 


D735 


D7 3E 
D756 
D76F 
7 2 
7 6 
7B 
D7 8 し 
D7 94 


D7 DD 
D7 ES 
D7F 7 


DG07 
D8AC 
D90F 
D92F 
D93D 
D94 4 
D94A 
D980 
D992 
D99E 


D9A5 
D9D9 
D9DE 
D9F4 
DA0 1 
DA20 
DA2 1 
DA30 


Abort ルー チン 
「Abort|] メッ セー ジ 


Abort 処理 実行 ルー チン 
カセ ッ ト 1 ブロッ ク 入 力 (汎用 ) 
レーナ チン 
カセ ッ ト 1 バイ ト 入力 ( 接 ) ル ー ナ ン 
(エラ ー が が なくなる まで ) 
カセ ッ ト 1 バイ ト 入力 (中 接 ) ル ー チ ナン 
(エラ ー 時 は 強制 リタ ー ン ) 
カセ ッ ト 1 バイ ト 入 力 (年 接 ) ル ー チ ン 
MOTOR 
モー タ ON (モー タ 状 態 フ ラグ が 変る ) 
モー タ OFF (モー タ 状 態 フ ラグ が 変る ) 
モー タ ON 
モー クタ OFF 
カセ ッ ト ギャ ッ プ 出力 ルー チン 
カセ ッ ト 1 ブロ ッ ク 出 力 (汎用 ) 
ッ ルー チン 
条件 モー タ OFF 
カセ ッ ト 1 バイト 出力 ( 記 拓 ) ル ー チ ン 
ーー 行人 人 力 (ベス み サン ン エディ ナメ ) 
om シン 
一 行 入 力 ル ー チ ン (継続 入力 を し な い ) 
EDIT 
ググ 出力 ルー アッ 
フィ ー ル ドド 設定 ルー チン 
フィ ー ル ド 設 定 お よび レー ズル ーー チン 
行 番号 オス ペー ス 出 力 
AUTO 編 集 処 理 
スク リー ンジ ャ ンプ テー ブル 
スク リー ン ポ ジ シ ョ ンチ ェ ッ クル ー チ ン 
スク リー ン オー プン ルー チン 
(アデ ウト プッ トモ ー ド で な いと エラ ー) 
プリ ンタ オー プン ルー チン 
スグ の リー ラル の の オト 池 胃 ルー チン 
カー ソル の X、Y 座 標 読 み 取 り ル ー チ ン 
仙 用 RCB 設 定 ル ー チ ン 


仙 用 R CB 設定 ルー チン の RCB デ ー タ 


SUBOUT PUT 設 定 ル ー チ ン 
SUBOUT PUT 初期 設定 ルー チン 


DA36 
DA62 
6 4 
DA6D 
DAS0 
SB 
DAA6 
BZ 


DADF 
E 4 
DAEEF 
F6 


DB07 
DB0C 
DB0D 
DB1F 


DB2 6 


DB2A 
DB4 9 


DB5 4 
DB59 
DB6D 
DB8 4 
DB9 4 
DB96 
DBD5 

D6 

DD 

E 』 
DBF 3 
DBFA 
DBFB 
DC1 5 


さり 
4 3 
う 1 


SUBOUT PUT 後 続 設定 ルー チン 
BIOS 実行 ルー チン ($DA36 付 ) 
BIOS 実行 ルー チン 
カー ソル の XX, Y 座 標 設定 ルー チン 
「CLS 」 画面 消去 ルー チン 
CLS 実行 ルー チン 
ブロ ッ ク 入 力 ル ー チ ン 
ブロ ッ ク 入 力 ル ー チ ン 
(ユー ザ 用 エン トリ ) 
カー ソル 消去 ルー チン 1 
カー ソル 表示 ルー チン 1 
カー ソル 消去 ルー チン 2 
カー ソル 表示 ルー チン 2 
(コン ソー ルコ ント ロー ル ) 
カー ソル 消去 ・ 表 示 ル ー チ ン 2 の 
RCB デ ー タ 
キー ボー ドジ ャ ンプ テー ブル 
キー ボー ド オ ー プ ン ル ー チ ン (イン プッ 
トモ ー ド で な いと エラ ー 人 する ) 
BEEP ON/OFF の RCB デ ー タ 
($DB26…ON, $DB28…OFF) 
Bk 
一 定時 間 BEEP を 鳴ら す 
( BEL よ り は 短い ) 
キー ボー ド F 1 バイ ト 入 カルー チ ン 
BreakK チェ ッ ク ル ー チ チン 
ギー バル ルー チン 
INKEYS 
KEY エントリ! 
RE も IS 
コン ソー ル 制 御 ル ー チ ン エン トリ 1 
コン ソー ルル 制御 ルー チン エン トリ 2 
コン ソー ル 制 御 ル ー チ ン エン トリ 3 
コン ソー ル 制 御 ル ー チ ン エン トリ 4 
PF ・ キ ー 読 み 込 み ・ 表 ルー チン 
RCB デ ー タ 
PF ・ キ ー 読 み 込 み ・ 表 示 ル ー チ ン 
KEY (n) ON/OFF/STOP 
エン トリ 
KEY (n) ON 処理 
KEY (n) OFF 処理 
KEY (n) STOP 処 理 


DCFA 
DDA8 
DE33 
DECA 


DEE2 


E 4 
DEF9 


DF 13 


DF2 7 


DF 30 


は 


DF 5 4 


DF78 


DFA6 


A し 


LU14 


E019 


E036 


05 は 


LU64 
11A 


PF・ キ ー 割 り 込 み 選 択 ル ー チ ン 
Dreg -*1C ) 

PF・ キ ー 割 り 込 み ON/OFF ( 未 使 用 ) 

PF ・ キ ー 定 義 ル ー チ ン 

ON の エン トリ 

ON KEY つ ルー チン 

KEY( ) の “(「 十 数 値 キ ")“ 

の 読み 取り ルー ナチ ナン 

KEY の 割り 込み テー ブル の 頭 出 し ルー チン 

ON INTERVAL 一 

ON TIME 一 

ON PEN 一 

CONNECT 

SYMBOL 

GCURSOR 

変数 型 と 変数 天 効 アド レス を 
GCURSOR の ワー クエ リア 人 代入 

Function 機 能 チ ェ ッ クル ー チ ン 
(NOT も 含め て ) 

Function 機 能 チ ェ ッ クル ー チ ン 

ワー クエ リア (X レ ジス タ の 示す ) 
カー ソル 座標 を 代入 

BIOS RCB, SUBOUT 
謗 定 ル ー チ ン 

BIOS RCB, SUBIN 
設定 ルー チン 

XY 座標 の 設定 

( 式 の 評価 . シ ザ リ ング 付き ) 

X, YY 座標 の 設定 ( シ ザ リ ング 付き ) 

PAINT 境 者 色 設 定 ル ー チ ン 

POINT 

PSET 

PRESET 

XY 座標 (キャ ラク タ ) の シ ザ リ ング 
EN の 

X、Y 座 標 (キャ ラク タ ) の シ ザ リ ング 
( 郊 、Y に ついて) 

"【 多 。 マリ ー【( 多 。 Y) まだ は 

"ー(XX。 Y)*" を 読み 込み XY を 決定 

*(X。 Y)" 読み 込み X、Y を 決定 

LINE 

TIME (大 辺 に あっ て 秒 を 与え る ) 


TIMES (右辺 ) 
年 。 月 , 日 , 時 間 , 分 、 秒 の 
問 々 の 要素 を 設定 
年 。 月 日, 時 間 , 分 , 秒 の 
衡 数 の 要素 を 設定 
DATES (右辺 ) 
DATE (右辺 に あっ て 日 数 を 写 え る ) 


月 の 日 数 の デー タ 


TIME エ ント リ 

TIME$ (左辺 ) 

設定 時 刻 が 聞 囲 外 か どう か の チェ ッ ク 

時 刻 、 分 、 秒 な どの 10 の 位 と 1 の 位 を 
足し て 計算 し B ビ レジ スタ へ 

TIME ON 処理 

TIME OFF 処理 

TIME STOP 処理 

TIME (割り 込み 設定 ) 

ワー クエ リア 割り 込み 時 刻 を 読み 込む 

SET TIMER (制御 レジ スタ ) 
ルーチン 

DATES ( 圧 辺 ) 

TIME$ や DATE$ の 設定 に お いて 
帆 陸 外 の と き の 如 理 

うる う 年 の 確認 ルー チン 

SET TIMER (24 時 間 時 計 レ ジス タ ) 
ルー ナン 

E2E9 の 下位 ルー チン (10 の 位 と 1 の 
位 を 換算 し サブ コマ ンド 設定 する ) 

DATE$。 TIME や の ワー クエ リア 
設定 ルー チン 

DATE$. TIMES. TIME の 
ノラ メー タ 設 定 ル ー チ ン 

TIMER を 読み 込む 
(02F4 一 02F9) 人 格納 」 

IMWE 民 だ (0U102ー) の ワー ケ クエ リア 
に 読み 込む ルーチン 

TIMER を (01B5 一 01C9) の ワー タク 
エリ ア に 読み 込む ルー チン 

時 記 な どの 数 値 変 換 

INTERVAL エ ント リ 

INTERVAL 割 り 込 み 間 隔 設定 ルー チン 
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40B 
E43D 
E446 
E44E 
E453 
E4 BB 
E4C68 
E520 
E543 
ES44 
Eo52Z 
E6A3 
E6B1 
E7A3 
も 7EF 
E6OA 
LAF 6 
EB4B 
EB7 7 


EB6E 
EB 9 1 
EB94 
kB9A 
EBBA 
EBCF 
EBES 
EBF6 
EC05 
EC14 

1B 

20 
EC27 
EC265 
E じ し 29 
EC4D 
EC7 2 


ECD9 
ECEE 
ED19 
ED35 


INTERVAL ON 処理 
INTIERVAL OFF 処 青 
INTERVAL STOP 処 理 


制御 レジ スタ (PSG ) 初期 化 ル ー チ ン 


0 時 割り 込み ルー チン 
Color 代入 ルー チン 
PAINT 


CIRCLE 用 SIN, COS デ ー タ 


CIRCLE X, Y の 上 限 設定 

し IRCLE エン トリ 

CIRCLE 傾 算 ルー チン 
CIRCLE 乗算 ルー チン 

8 ビッ トー3 ビ ッ ト 変 換 ル シー チン 
GET 

PU 

SCREEN 関 数 

SCREEN 


マル チ 制 御 ペ ー ジ レジ スタ (FD37 ) 


設定 / レ レー チン 
BUB INI 
BUBW 
BUBR 
二 目 同上 
SOUND 
PSG 設 定 ル ー チ ン 
PSG 初 期 化 ルー チン 
PLAY 実行 へ の 設定 
音 関 係 の 人 期 化 ル ー チ ン 
TIMER 割 り 込 み イ ネー ブル 処理 
TIMER 割 り 込 み マ スク 処理 
IRQ マス ク 処 理 


BEEP OFF の RCB デ ー タ 


PLAY 文 の オシ レー タ の 初期 設定 

PLAY 文 の バッ ファ 初期 設定 

PLAY (PLAY の MML は 1 つの 
結語 体系 を 成 し て いる ) 

MML バ ッ フ ァ の 初期 設定 

MML 文字 傾 域 チェ ッ ク 

MML 解釈 実生 ルー チン 

MML コマ ンド 解析 ルー チン 


ED63 
ED7 2 
EE9A 
EE し 9 
EEDA 
EEES 
EEF 0 
EEFC し 

ド E 
EEF1Z 
EF19 
EFZ 1 
EF31 
EF44 
EF5C し 
EFA 1 
EFB3 
EFC9 
F01C 

5 
F049 
FU060 
FO068 


F0CF 
F 0DA 


FUOFo5 
F144 
F 15.9 
F15A 
F174 
F176 
F17C 
F17D 
FC00 
FC60 
FD00 
FE00 
FFE0 
FFFO 
FFFE 


MML バ ッ フ ァ の 頭 出 し ルー チン 
PLAY 文 割り 込み 処理 ルー チン 
音 の 長 さ 計算 ルー チン 
MML 小文字 き 大 文字 変 失 
T "処理 
~ し “処理 
"OO" 処理 
FV? 処理 
S ” 和 理 
オシ レー タデ ィ ス クリ プ タ へ の 書き 込み 
オシ レー タデ ィ ス クリ プ ブタ の 読み 出し 
オシ レー タデ ィ ス クリ プ タ の 頭 出し 
所 w 丘 2 和 W 必 
“AO デ "一 G 処理 
"N "処理 
-M" 処理 
変数 名 処理 
音程 の 設定 な ど 
バッ ファ に MML 中 間 コ ー ド を 格納 
MML 中 間 コ ー ド 格納 用 サブ ルー チン 
MML 1 コー ド 読 み 込み 
ポイ ンタ (D9: DA) の 各 帰 
音程 コマ ンド の 後に 続く も の 
に つい て の 処理 
ポイ ンタ (D9: DA) の 設定 
音程 以外 の コマ ンド の 後に 続く も の 
に つい て の 処理 
数 値 , 変数 に つい て の 処理 


コマ ンド 相対 アド レス デー タ 


音程 の デー タ 


V1L1 "82 09 01 
(BIOS の バー ジョ ン ) 
BIOS 

RAM 傾 域 

共有 RAM 傾 域 

[ /0 令 域 

BOOT RONI 

BOOT _ROM 用 の RAM 領域 
割り 込み ベク トル 
RESET ベク トル 


6 一 3 DISK BASIC の メモ リマ ッ プ 


初期 設定 で 使用 きれ る 。 IP 上 や DBSINI な どの ルー チン も 載せ て お きま 
し た . 仕様 は 6 一 2 と 同様 で す 。 


IPL (BAS 1IC 起 動 時 に 消滅) 
[PL が BOOTROM 内 の サフ ルー チン を 
呼び 出す た め の デ ー タ (RCB ) 


DISK BASI し イニ シャ ライ ズ 
ルー チン (BASIC 起 動 後に 消 殆 ) 


DISK モ ー ド で の PF・ キ ー の デー タ 


DISK 関 係 の 予約 語 の 
予約 語 参 了 照 テ ー ブ プル へ の 転送 用 デー タ 


DISK BASIC 起動 時 の メッ セー ジ 


DISK BASI じ 用 の ワー クエ リア 


DISK コ マン ド の 予約 語 綴 り テ ー ブ ル 


DISK コ マン ドジ ャ ンプ テー ブル 


DISK 関 数 の 予約 語 り テー ブル 


DISK 関 数 の ジャ ンプ テー ブル 


DISK 関 係 の 解読 実行 ルー チン 
DSKINI 

FAT 初期 化 ル ー チ ン 

コロ ン 。 NULL の チェ ッ ク ル ー チ ン 


| Are youSure 一 |」 ルー チン 
「Are you Sure 」 デ ー タ 

「 Are you 一?」 実行 ルー チン 
「(Y or N) 7 デー タ 


メッ セー ジジ 出力 ルー チン 
ファ イル バッ ファ の 頭 出 し ルー チン 
同上 ( 仕 意 の も の ) 


ドラ イフ テー ブル の 頭 出 し ルー チン 
セク タ 入 出力 ルー チン 
セク タ 入 出力 実行 ルー チン 
同上 (RESTORE ) 
同上 (DREAD ) 
同上 (DWR ITE) 
セク タ 入 出力 実行 ルケ ー チ ン の 各 処 理 へ の 
ジャ ンプ テー ブル 
DSKOS 
DSKIS, DSKOS 入出 力 ル ー チ ン 
ドラ イプ, トラ ッ ク , セク タ 番 号 の 設定 
DSKI$ 
1 二 介 問 を 
KILL 実行 ルー チン 
FAT 記入 ルー チン 
ディ レク トリ 探索 ルー チン 
ファ イル の 存在 チェ ッ ク ル ー チ ン 
ファ イル の オー プン チェ ッ ク ル ー チ ン 
ID 確認 と FAT の 読み 込み ルー チン 
同上 (デバ イス 番号 の チェ ッ ク な し ) 
だ オ スグ  ー ダ アル ー ナ ツア 
モー ド 1 ”" の と き の 処 理 
モー ド “ 〇 ひ ” の と き の 処 理 
モー ド AA の と き の 処 理 
モー ド “” R "の と き の 処 理 
ファ イル バッ ファ テ ァ の 初期 化 ル ー チ ン 
ディ レク トリ り リス ロッ ト 記 入 と FAT 記入 
ルー チン 
FAT 記入 ルー チン (条件 付 ) 
ディ スク クロー ズル ーー チン 
SFD か ら ド ライ ブ 番 号 を 割り 出す 
ZN NDLー チン 
傘 セ クタ ク 設 定 ル ー チ ン 
空き クラ スタ 検索 ・ 設 定 ル ー チ ン 
クラ スタ 番号 , クラ スタ 内 セク タ 番 号 一 
トラ ッ ク 番 号 。 セ クタ 番号 変換 シー チン 
クラ スタ 番号 一 トラッ ク 番 号 一 2 


デア ィ ス アク 
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フラック 番号 一 クー クラ スタ 番号 
コー ド / セ クタ 番号 クラ スタ 入 号 
ラス タ 番 号 つ レコ ー ド / セ クタ 番号 
ディ スク 1 バイ ト 入 力 ル ー チ ン 
次 セク タ 読 み 込 み ル ー チ ン 
ポイ ンタ を EOF まで 進め る 


ポジ ショ ンチ ェ ッ グ 


ディ スク INPUT ルー チン 

1 バイ ト 入 力 及び デー タ 終 了 チ ェ ッ ク 
トバ イト 人 力 ル ー チ ン 

区 切 文字 設定 ルー チン 

FILES 


「Clusters Free」 デー タ 


1 バイ ト 十 空白 出力 
空白 出力 

クラ スタ 数 の 割り 出し 
DSKEF 

CV 1 

CVS 

CVD 

MKTIS 

MKSS 

MKDS 


393 
7D43 
7 D4E 
7DA7 

AG 
7E0 1 

03 
7EB0O 
TP 29 
7FC3 
7FC4 


7FEU 
TFPFEF 


プ ァ イル モー ドド チェッ ク ( ラ ンダ ム , アテ 
キス ト か ら フ ァイル 番号 を 読み 込む ) 


ザル 志 王 下 チ ェ ュ ェ ッ ツク (ラプ タ ム ) | 


ファ イル モー ドド チェック (任意 の ) 

ディ スク EOp 

ディ スク LOF 

NAME 

^AS" チェ ッ ク 及 び フ ァイル 名 ・ 
ドラ イブ 番号 設定 

ファ イル 名 ・ ド ライ ブ プ 番 号 

AS "チェック 

FIELD 

半 SDW 條 

RSET 

PUT 

GET 

DISK 用 エラ ー 処 理 ル ー チ ン 


エエ ラー メッセ ー ジ 


DISK モ ー ド 時 の 文字 列 代 入 用 
補助 ルー チン 


未 使用 


6 一 4 中 間 コ ー ド 一 覧 表 (コー ド 順 ) 


コード の 小さ い 順 に 並べ た , 中 間 コ ー ド の 対応 表 で す . 
(  ) で くく っ て ある の は サブ プ コ ュー ド で す . また , 較 
ー ド で あり 。 DISK モー ド 時 の み 生 成 さ れ ま す . 


| の 部 分 は DISK コ 


ー SUB 
RUN 
ー“(FD 名 ) " 
IF 


RESTORE 
RETURN 
REM 

/ (年 釈 文 字 列 ) 
STOP 
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CONNECT 


中 間 コ ー ド | 対応 する キー ワー ド わら る 対応 する キー ワー ド | テモ で レタ 
8F ELSE AD EXEC C76F 
90 TRON AE OPEN CEA8 
9 1 TROFF AF CLQSE CE7 3 
9 2 SWAP B0 FILES CBB5 
9 3 DEFSTR B1 COM D444 
9 4 DEF INT (97) ー ON D475 
95 DEFSNG (D5 ) ー OFE D46 4 
9 6 DEFDBL (8E) ー STOP D484 
9 7 ON (01EC) B1A2 COMMON D448- 90A0 

(B2) ー KEY GOSUB B2 KEY DB9 4 
(CB) ー INTERVAL ヶ BB) se 江 和 LO DB98 
(FFA9) ー TIME ヶ > (97) ー ON DC35 
(FF9B) ー ン PEN ヶ > (D5) ンー OFF DC4 3 
B1) ー COM (n) ヶ (8E) ー STOP DC4F 
ー ( 式 ) GO…… ー 定義 DC7 1 

(9B) ー ERROR GOTO B3 PAINT E4C8 
98 HARDC B4 BEEP DB2A 
9 9 RENUM ー 1 DB3F 
9A EDIT = 0 DB44 
9B ERROR B5 COLOR C7CA 
9C RESUME CE6) | COLOR= C7F1 
9D AUTO B6 LINE E064 
9E DELETE (FFA6) ー INPUT BF48 
9F TERM B7 DEF A7D9 
A0 WIDTH (CF) ー FN A7DF 
A1 UNLIST CD2) ー USR A969 
A2 MON B8 POKE 9A30 
A3 LOCATE B9 PRINT 9AB3 
A4 CLS (40) ー @ 9C2B 
A5 CONSOLE BA CONT 9002 
A6 PSET BB LTST CD0 1 
A7 PRESET BC CLEAR C77B 
A8 MOTOR BD RANDOMIZE BBE5 
(97) ー ON BE WHILE AD5 4 
(D5) ー OFE BE WEND AD8 1 
A9 SKIPF C0 NEW 8F32 
AA SAVE C1 GET E7EF 
(4D) ー M (23) ーー オ 7E04 
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6 一 5 実装 図 ・ 回 路 図 


本 第 で は 。 FMーー7 の ミニ フロ ッ ピ ディ スク イン タフ ェ ー ス (MEFD) カー ド , 
Z80 カ ー ド , RS 一 23 2C イ ンタ フェ ー ス カー ド の 回 路 図 ・ 実 装 図 を 紹介 し 
ます . 

これ ら の 回 路 図 ・ 実 装 図 は すべ て 秀和 シス テム トレ ー デ ィング 株 式 会 社 に お い 
て 調査 し た も の で , メー カー が 保障 し た も の で は あり ませ ん . あく まで も 参考 図 
と し て お 使い 下さ い . 従っ て , 本 回 員 図 集 に 関し て メー カー 千 に 直接 同 い 合 わせ 
る こと は 人 御大 記 下 さい . 


[ 実装 図 
た wo の イン / nHE DU の ド 
2 80 カ ー ド 
人 0 スン 2 


II 回 路 図 
1 ミニ フロ ッ ビ ディ スク イン タフ ェ ー ス (MEFD) カー ド 
2 Z80 カ ー ド 
NE 2 0 El ググ Sm の HP 


※ 印 の な い 朱 抗 の 単位 は すべ て 0 です. 
K は kO, / は 4 ド , P は pF の 遇 で す . 
*EI は 負 論 理 の も の で す . 
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7 | 


コネ ジ :2-F6-SW4NA-2.6 x 10S 
コネ クタ CN1 : FCN-365P032-AG 


カナ ク :2-F CN-360A3 


309 


ーー 口 コ MA | ・ 日 ャ LISTbZW 


ゴロ * 


当 W.* 


WW * 


081NI * 


0 ・ 


8 品 


上 HOEIA 


LEW 
o く 、 


こ 
VgclS 1 セヨ WW 
OLMW 


と 0O セ ZNS 


rr 


0H| ゴ * と デム た リロ] と 1 


1 


ャ IS I セ ZI 
1 届 


Vt/S I セ ZdW ココ イイ と 一 と と ・」 と と 
と 0 有 H コ 5 


C0H コ 


ャ IS 1 セヨ 
LIM 


GW 


EE_。 


と ES | セロ WW 
と LMWY 


SUO0Z 
(LA) LET 


計 才 ・ と と ょ (0HU) 立 全 | 選 強 ユ H { L7m 80S TbZ ヨ WAN 


LE 「 00S ]t/ 日 由 ロ 


01S l セ / 


ロ W 
8W 


WH ヨ 
s く に 0 ヨ 
VG1STtZBW 
OIW 
13S ヨ H ヨ ・ 
ZZS]tZ ヨ W 
ャ LM 
引 ヨ 
( 諾 
ZSTtZHW 
ャ IA 
SO ヨ ・ 
SnBaQQv コ 


の S「IHVTVOU ヨ ゴ 


10 


UND 


ョ ー  d 唄 1・I 


ば 1 
eoOrO 19 


十 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ーー 一 ーーーーーーーーーーーーーーーーーーーーーーーー ーー ーーーーー ーー 


し ルル 衝 ロン の る ん と 人 ズ ベイ ォ ペ ベ ゴーー JO 
> ビオ ロロ マン ル ヽ \/ と 号 の OZZdA 0 
| EMIM 同 Ed が 村 の 
| ッ 了 あ コ 1]、 イ 錠 せ せよ 導 と ヒ 1 
回 ーーー ae (の と NO 1 コ 58 ヨ は ヨ 
| 々 マオ すべ へ オイ) 后 号 AA/d 6 導 こ 7 1 、 嘆 
| <) ラニ コル */【 代 1 と と コー の と と ル と 
ウマ ES 頃 xy/ ッ ズ 子 と と 4 細目 LOd 
_ 錠 も GE 語 
て と 0 ふと (SPIS の と と と そ ) コ ペン 目 9.46 に | 
学 を 上 軸 軸 ユ 
ィ と と そつ 野 剖 る 一 竹 1 表 4 と と ・ コ ー リ ロゴ 


ウオ コーロ と イコ と る と 4 基 目 | を る 忌 邊 時 ル を 一 人 VIO オ 


> コ 生 部 衝 夏 王 ン へ と 』」 琶 般 の コペン AW/d ヨ | を ドニ 


ッ ぁ 6 セオ の 4 ズム ヒビ | コテ ヒビ | J と と 
の clIeGE 
を 半 き 鞭 壮一 と エ の 時 浸 ズム ヒ | と を ー そ と ha の 


/ ロ ョ ー と 
中 9 1 - 一 『l 


61H ゴ 


| 


周 /- ヨ 


- 環 導 _ ェ 


S「IHVIVO ヨ < で 


S「1 ヨ HUUV コ 


311 


ーー ビ 08Z と ・ 明 


WUB ど 


テー< es 


OS 1 00S] 8 
81 由 BL 
日 上 1 ヨコ 5 コ ヨロ * 
DI REEEEOSEai 
還 GIIV1VUWW に コ 
ーーーー =- 一 一 一 - - 一 一 一 GLG 
"8〆 
UEE SL へ ri 
5 Vr9gEG 1 
LIM 


富 昌 1 己 GOOdS IN・ 


0H! * 
0HI ヨ ・* 


| S「 HUUVW 


ー 「1H ひ VOUB ど 〆 


すか 


S12 


テ 
上 
お 


名 
|] 


AB 8 
AB 9 
AB10 


AB14 


MADDRBUS 


> MDATABUS 


Z80/ 
・RESETB 
・IRO 


* NMI 


・FIRO 
EB 
Z80W(SFD05 DBO) 
BSB ・ REFOK 
BA 日 


RWB OB 


+5V 


Mi15.16.17 
C1.4.6.7 


GND 


II・2 Z80 カー ト 


S19 


[ 召 必 (OH 王 有 有野 」 


『 wu es 1 ゴ 員 = | 


ゴー 記 OZ258ZS 8・1I 8 | MSymml1 5 中 


同 せ Fi 昌 1 貼 ーー ーー TE5qlq5 ぃ 5 キキ ヤキ ヤキ 《 べ 


GZ1S Tb/BW 
6 内 


(681GZNS)V68LOW 
1W 便 > っ の 
_ LMPE 8 
|] ggrioW POS IpCBM 
AI 一 1LH べべ 
と ! fe 
(681GZNS) V68 ャ LOW CO | 
TO oo 4 
0 ノー マー の ーー ター 
6 に 
(681GZNS) V68 ャ 1 内 1 zz 
WTNA 可 一 e8 


5 5 


ゴル | ゴ り コロ 


PCGES_]bZNS 
SW 


ロ N ヨ S 01 HV ヨ HO 


“HI 


【GBIGZNS」VDBDiOW OS ]bz 日 


AdV ヨ H 1 ヨ S VIVO " 
- 13S ヨ H ヨ ・ 


人 【F 


VIVOU ロコ ハル | コロ 
05 ItZHW 


{681GZNSJVBBr!OM 


PP 


と 人 
(88LGZNG)88bLOW ' 
EW 間 

ーー 隊 衣 


(88IGZNS) giON " 
EW 


旧 昌 ヨ 
に ビ 


VIVO ロコ LTIWSNVH ユ 


テ 


TI 
中 帝 守 を 一 エー ユイ 


(XX dS) 
mm SO ヨ * 


と L 


ヨ 3H00 


dN ヨ S 01 1S ヨ IO ヨ H 


01S-rZBW 


zo ヨコ 


(881GZNS) 88tIOW 
EN 


と NO 


1 15 1DZBW 
EL 誰 


人 口 日 * 昌 


と 5 1b/HWW 
ら 6lMW 


JSVWAS・ 


JSVW*1" 
) ヨ * 


BE5 IP/ 日 内 ーー 
1 V LGCB ロ | 
LA “ | = ーー で > SnBv1y ロ 3 


SF「IHHHOUY コ 


と dgGBV 


ャ CHV - 二 


J14 


ー つの つ 6562Sd 


ゴ HOV 


CO ゴル * 


S「IBV1V ヨ 


S「i ヨ HOUOV ヨ 


5 ・1 


(AOJHND り 


ハロ 十 


ハ [ 十 


GL デー 


LHV コ 


so( に OL OBV3 


6 と V ヨ 


と CS I セ Z 昌 MM 


Fe テテ ーー ニー=ー ーー モー ーーー デーーー= ニ ーー ニョ ーー モー=mmmsn・))。 hmm mm ニニ ュー ニニ ー ニ ニー ニー ニニ me=== ニ ニー ニー ニー モーーーーー ーー = や や や や や ふ パパ WW 


SO0I ゴ * 


と 9GHV 
ル CHV 


el 


"HMWWGC 


上 コ S ゴ ロゴ * 
ヨ 


915 


共 著 。 箕 原 辰 大 。 移 地 胡 南 奈 浴 


発行 者 牧 谷 秀昭 
発行 所 秀和 シス テム トレ ー デ ィング 株 式 会 社 
陸 健 番号 1 0 7 東京 都 港 区 南青山 2 一 19 一 5 関原 ビル 


ーー 一 一 一 ーーーーーー- ーーーーーー= ーーーー == 一 ニーーーー 


ー SHUWA SYSTEM TRADING CO.. LTD. 

SEKIHARA BLDG. 

2-.19.5 MINAMIAOYAMA.MINATOKU_ TOKYO.107 JAPAN 
印刷 所 東京 スガ キ 印 刷 株 式 会 社 


ii ペペ ペペ ペペ ペペ ペペ ペペ ペペ ペペ ペペ ペペ ペペ ペペ? や? ニニ っ ぬ ヘス ュ ト ー、-、、、、 


1983 年 12 月 16 日 第 1 刷 発行 1985 年 2 月 1 日 第 2 人 凡 発 行 


共和 シス テム 


秀和 シス テム トレ ー デ ィ ン ツ 株 式 会 社 
ISBN4-87966-015-9 C0000 \2800E 


